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Prefácio 


Por que usar o Basic? 


*0 Basic é uma linguagem de estrutura simples e de fácil aprendizado.”* 


A afirmacáo acima deve ser literalmente obedecida de modo que um número 
cada vez maior de pessoas possa usufruir das vantagens educacionais dessa lingua- 
gem. 

O Basic deve ser estudado com a prática de programacáo, através de exercí- 
cios, pois sua parte teórica é e deve permanecer simples. 

Além disso, por sua simplicidade, o custo de aquisicáo e implantacáo do pro- 
grama tradutor (chamado interpretador Basic) é baixo, ocupando espaco reduzido 
na memória, facilitando o seu uso em microcomputadores. 


O Basic (Beginner's All-purpose Symbolic Instruction Code) foi desenvolvi- 
do no Darthmouth College, U.S.A., para ajudar os estudantes no treinamento de 
programacáo, usando terminal remoto, de modo conversacional em sistemas 
denominados time-sharing ou tempo partilhado. 

Com o impulso do uso de micromputadores pessoais, o Basic ganhou o seu 
destaque, pois apresenta vantagens em atender estudantes, profissionais e hobbystas 
de diversos níveis e áreas, por ser uma linguagem simples e relativamente eficiente. 

O Basic possui as características básicas para atender ás necessidades e gostos 
de qualquer pessoa que vé no microcomputador um instrumento eficiente de cál- 
culo. 

As caracter (sticas principais do Basic sáo: 

0 operacáo simples e de caráter conversacional, com a execucáo imedia- 
ta dos comandos e programas; 
e facilidade em definir ou usar: 
— nome de variáveis (uma letra ou letra e algarismo do tipo A, B, C, 
X1, X2, A3 etc.); 
— tipo de variáveis (em geral todos os valores numéricos sáo reais); 
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— tipo de comandos (LET, INPUT, PRINT, FOR? etc. sáo de fácil 
entendimento); 

— estruturas simples (as sub-rotinas GOSUB estáo dentro do próprio 
programa); 

— variáveis sem formato (dispensam o uso obrigatório do FORMAT 
como ocorre no FORTRAN). 


Entretanto, algumas expansdes naturais das características básicas do 
BASIC, tais como: 


e edicáo de dados através do comando PRINT USING 
O nome de variáveis com mais de dois caracteres 

O valores com dupla precisáo 

% operacáo com strings de caracteres, 


foram exigéncias naturais dos usuários ávidos em resolver problemas mais sofisti- 
cados. 

Cabe ressaltar que náo se deve recorrer a versdes muito sofisticadas do BASIC, 
a tal ponto de se ter uma linguagem mais difícil de se aprender do que o FOR- 
TRAN, COBOL, PL/1, ou PASCAL, pois o Basic náo possui a estruturacáo sufi- 
ciente para se tornar complexa, gerando dificuldades no seu aprendizado e padro- 
nizacáo da linguagem. Em tais casos seria prefer(vel recorrer a linguagens com 
estruturas mais apropriadas como o PASCAL ou COBOL. 


O BASIC deve ser usado por pessoas que se iniciam no campo da computa- 
cáo e processamento de dados, através de seu microcomputador simples e barato. 


É essencial apresentar uma visáo progressiva e simples do uso de seus coman- 
dos (sempre através de exercícios e exemplos) sem entrar em detalhes especiais das 
diferentes versdes existentes no mercado. Tais detalhes podem ser examinados por 
cada interessado após obter a nocáo básica do BASIC. 


O lema principal deste texto é apresentar o BASIC de modo a: 


“Motivar e ensinar pessoas novas no ramo a resolver seus problemas 


usando um microcomputador.”' 


O texto está dividido em duas partes: A primeira contém apresentacáo e 
exercícios sobre o uso dos principais comandos BASIC, e a segunda contém apli- 
caq0es em diversos ramos da atividade. 


Toda a tentativa de oferecer exemplos e programas BASIC testados foi feita 
pelo autor. Entretanto, é quase impossível executar testes exaustivos, e eliminar 
totalmente erros de transcricáo e adaptacóes. Sendo assim estamos prontos a 
receber e agradecemos antecipadamente qualquer notificacáo sobre os eventuais 
erros encontrados. 

Registramos os sinceros agradecimentos á colaboracáo prestada pelo colega, 
Sr. Mário Sobolewski, da FEI-IPE!, no trabalho de pesquisa e levantamento das 
diferentes formas dos comandos e func0es existentes no Basic. 


O Autor 


O Basic e o seu 
Microcomputador 


1.1 PROCESSAMENTO DE DADOS COM 
MICROCOMPUTADORES 


O uso de microcomputadores, tanto para servicos pessoais como para proces- 
samento de dados em pequenas empresas, tem crescido bastante devido ao baixo 
custo desses equipamentos e eficiencia cada vez maior de software. (Veja Fig. 1.1.) 

As facilidades oferecidas por uma linguagem de caráter simples e conversa- 
cional denominada Basic, tem contribuído bastante para o maior interesse dos 
usuários em resolver problemas científicos e comerciais. 


1.2 DEFINICÁO DE ALGUNS TERMOS TÉCNICOS 
USADOS NO TEXTO 


Os seguintes termos técnicos sobre computadores podem aparecer no texto: 


ARQUIVO DE DADOS — Conjunto de dados agrupados sob a mesma 
forma física (cartáo, fita magnética, fichas) para determinada finali- 
dade. 

ASCII — (American Standard Code for Information Interchange) — Siste- 
ma de representacáo binária de caracteres alfanuméricos padronizado 
para uso em sistema de informacáo e computadores. (Ver Apéndice B.) 


BINÁRIO -— Sistema de numeracáo que usa bits com valor 1 ou 0. 


COMPILADOR — Programa que traduz programas em linguagem de alto 
nível (FORTRAN, COBOL, PL/I) para linguagem de máquina. O Basic 
pode possuir o seu programa compilador embora seja freqúente 
usar o interpretador Basic. 

CONVERSACIONAL — Característica da operacáo ou linguagem que 
permite ao usuário escrever uma instrucáo e receber imediatamente o 
resultado, sem demora. 
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DISCO MAGNÉTICO — Meio ou arquivo de armazenamento de dados de 
grande capacidade e que opera no modo direto ou randómico, poden- 
do buscar os dados diretamente em qualquer parte do disco sem obe- 
decer sequéncias. 

DISKET ou DIQUETE — Disco magnético de porte pequeno, próprio 
para microcomputadores. É feito de material plástico flexível e tam- 
bém conhecido por FLOPPY-DISK. 


DISPLAY ou TELA — Meio de representacáo visual, normalmente feito 
através de vídeos de TV ou CRT (Cathode Ray Tube). 

DRIVER — Unidade que recebe e opera os meios de entrada/saída como 
disquete, fita etc. 

FITA MAGNÉTICA — Meio ou arquivo de armazenamento de dados de 
capacidade média e que opera de modo seqúéncial, lendo ou gravando 
dados sempre do comego ao fim da fita. 

FLUXOGRAMA — Notacáo gráfica que representa o raciocínio lógico 
para execucáo de um programa. 

HARDWARE — Equipamentos ou pecas físicas (ferramental) do compu- 
tador. 

INTERPRETADOR — Programa que executa cada comando de outro 
programa á medida que o encontra. Diferente do Compilador, que 
traduz o programa todo executando-o depois. 

KEY-BOARD — Ver TECLADO. 


MEMÓRIA — Parte do computador onde os dados (programas e valores) 
sáo armazenados. Pode ser formada de núcleo magnético de ferrite ou 
por pecas de circuitos integrados chamadas chips. * 


MEMÓRIA RAM — (RANDOM ACCESS MEMORY) — Memória de cir- 


cuito integrado onde é possível ler e guardar qualquer dado ou progra- 
ma. 


MEMÓRIA ROM — (READ ONLY MEMORY) — Memória de circuito 
integrado de onde só é possível ler dados, nío podendo efetuar o 
armazenamento. 


MICROCOMPUTADOR -— Computador de porte pequeno que utiliza na 
sua parte central ou principal de processamento, o microprocessador. 


MICROPROCESSADOR -— Peca ou pastilha ou chip de circuito integra- 
do que contém todas as funcóes principais da unidade central ou prin- 
cipal de processamento (UCP) de um computador. 


PLOTTER — Unidade de saída para tragar gráficos. 
SOFTWARE — Conjunto de programas básicos de sistema (como o Inter- 
pretador Basic) e programas aplicativos de um computador. 


TECLA OU TECLADO — (ver KEY-BOARD) — Parte de um terminal 
por onde sáo datilografados ou digitados os códigos, valores e certas 
operacdes (como mudar de linha) de um programa. 


TERMINAL — Equipamento de entrada ou saída de dados colocado 
para possibilitar o acesso de dados (programa ou valores) do usuário 
ao computador e vice-versa. Pode ser terminal de teletipo, teclado al- 
fanumérico, vídeo, impressora etc. 


UCP — (Unidade Central de Processamento). Parte principal ou central 
de computador e que executa as operacóes aritméticas, lógicas, de 
transferéncia de dados etc. 


DRIVERS 
PARA DISQUETES 


TELA OU 


DISPLAY DE VIDEO 


AAA 


UCP E MEMORIA 


IMPRESSORA 


DISQUETES 


Figura 1.1 Configuragdo de um Microcomputador 
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1.3 PROCESSAMENTO DE UM PROGRAMA EM BASIC: 
OPERAGOES BÁSICAS DO TECLADO 


€ O terminal do computador, usando Basic, estará pronto para receber 
um programa. Na tela do terminal (ou na impressora) aparecem os 
seguintes sinais: 


READY (ou outro sinal equivalente) 


e Escreve-se o termo NEW no terminal, sempre que o programa for no- 
vo; caso contrário, o mesmo será acrescentado ao programa já existen- 
te na memória. 

e Após o NEW, apertar a tecla RETURN (ou ENTER ou CR — Carriage 
Return). O computador escreverá a mensagem READY e o sinal + 
ou ]. (Figura 1.2) 


READY 
teclas 


NEW (CR ou ENTER ou RETURN) 


(Limpou memória) 
READY 


O Escreve-se apenas um comando do programa de cada vez, com o res- 
pectivo número, e aperta-se a tecla de “Retorno de Linha”” do termi- 
nal, o que coloca o comando na memória (tecla CR-Carriage Return, 
Return ou Enter). 


e Os comandos podem entrar fora da seqúuéncia numérica, pois o Basic 
coloca-os na ordem correta. Isto permite a insercáo de novos coman- 
dos no meio do programa, se existir número de comandos vagos. 


* Um novo comando com número de comando já usado apaga o coman- 
do anterior da memória. 


Figura 1.2. — É preciso conhecer as teclas do seus sistema 19 
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1.3.1 Exemplos demonstrativos de programa em Basic 


Os seguintes programas simples podem ser datilografados, linha por linha, 
e executados pelo leitor. Os programas dispensam maiores explicacóes. 


Após datilografar uma limha, o leitor deve sempre apertar a tecla de RE- 
TORNO DE LINHA (CR, ENTER ou RETURN). 


a) Calcular valores 


NEW 
10 PRINT 3+5+10, 3*5 ' 
20 END 
RUN 
18 15 (Resultados) 


Um programa equivalente seria: 


NEW 
10 LET A= 3+5+10 
20 LETB=3*%5 
30 PRINT AB 
40 END 
RUN 
18 15 (Resultados) 


b) Escrever nome e endereco 


NEW 
210 PRINT “SR ANTONIO UBALDINO REZENDE” 
20 PRINT “RUA DOS PATOS, S/N” 
30 PRINT “S.CARLOS — S.PAULO” 
40 PRINT 
50 END 
RUN 
SR. ANTONIO UBALDINO REZENDE 
RUA DOS PATOS, S/N , 
S.CARLOS -— S.PAULO (Resultados) 


Datilografando a palavra RUN, o programa que está na memória será exe- 
cutado novamente. O leitor pode colocar o seu próprio nome e endereco, modi- 
ficando os comandos 10, 20 e 30. 


c) Tracar um triángulo na tela 


NEW 

10 PRINT “Xx” 

20 PRINT “XX” 
30 PRINT “M00X” 
40 PRINT “XXXX” 
50 PRINT “XXXXX” 
60 END 

RUN 

Xx 

XxX 

XXX 

XXXX 

XXXXX 


Cada um dos comandos ou instrugdes destes programas seráo estudados com 
detalhes e exemplos, a partir do próximo capítulo. 


Na secáo seguinte, estudaremos a forma geral de um programa em BASIC, 
ainda através de um exemplo simples, sem entrar em detalhes sobre cada co- 
mando. 


1.4 A LINGUAGEM BASIC 


O BASIC (Beginner's All-purpose Symbolic Instruction Code) é uma lingua- 
gem extremamente fácil, destinada á programacáo de aplicacdes científicas e apli- 
cacdes comerciais simples. 

Seu caráter conversacional (isto é, o programador pode executar e corrigir o 


seu programa diretamente no terminal) proporciona estrutura simples aos coman- 
dos, embora permita a programacáo de problemas bastante complexos. 


Um exemplo de programa em Basic: 


“Calcule a fórmula: X = (A+B) + (3xC)."” 
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Vamos tentar apenas entender o seguinte programa BASIC. Náo é difícil. 


Comandos Explicagáo 
NEW e Prepara o computador para receber um 
programa novo 

100 INPUT A,B,C e Recebe os valores de A,B e C pelo terminal 
101 LET X = (A+B) / (3*C) e Calcula a fórmula 

105 PRINT X e Escreve o valor de X pelo terminal 

109 END e Fim do programa 

RUN O Vai executar o programa lido. 
Observagúes: 


e O leitor náo deve estranhar certas convencgóes adotadas pelo compu- 
tador e que sáo diferentes do nosso raciocínio normal, tais como: 
ler valores A,B,C antes de comhecer a fórmula, ou, colocar sinal de 
igualdade antes da fórmula. 


e Todo comando Basic é precedido pelo número do comando. 


e O programa é executado em ordem crescente dos números do coman- 


do, exceto quando houver uma instrugáo de desvio, como GOTO 
ou AIF. 


e NEW e RUN sáo Comandos de Controle do programa e náo fazem par- 


te da linguagem Basic; por essa razáo, náo possuem o número de co- 
mando. 


Espacos em branco podem ser usados á vontade, mas cada comando 
náo deve exceder 256 caracteres. 


e Os números do comando podem variar de 0001 a 9999, 


NEW 
READY 


100 INPUT A,B,C (apertar tecla CR ou ENTER ou RETURN após 
cada comando) 


101 LET X = (A+B) / (3*C) (coloca comandos 
105 PRINT X BASIC na memória) 


109 END 


e Após terminar a colocacáo do programa na memória com o comando 
END, pode-se usar qualquer uma das alternativas seguintes: 


RUN — Para executar o programa. 

LIST — Para listar o programa. 

SAVE  — Para guardar o programa na memória em forma de fita ou 
cartáo. 


e A qualquer instante podem-se adicionar novos comandos ao programa 
da memória, ou entáo apagá-lo com o comando NEW. 


1.5 ALTERNATIVAS DE OPERACAO 
1.5.1 Opcáo RUN 


Supondo que o programa já foi colocado na memória, 


NEW 
READY 

100 INPUT A,B,C 

101 LET X = (A+8B) / (3*C) 
105 PRINT X 

109 END 
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datilografando o termo RUN, após o comando END, temos: 


(queremos executar o programa) 


lo computador solicita valores de A,B 
e C parao comando INPUT) 


? 3,5,1.5 (valor de A= 3, B =5eC= 1.5 fornecidos) 


1.777778 (valor de X calculado pelo LET e 
escrito por PRINT) 


1.5.2 Opcáo LIST 


Fornece nova listagem de todo o programa que está na memória. 


LIST (Listar programa BASIC 
100 INPUT A,B,C da memória) 


101 LET X = (A+B) / (3*C) 
105 PRINT X 
109 END 
READY 


1.6 COMANDOS DE CONTROLE DE PROGRAMA 


Sáo comandos que permitem o controle direto do programa, por parte do 
usuário com a utilizacáo de diversas alternativas possíveis. Esses comandos, em 
geral, náo possuem número de comando e tém prioridade de execucáo imediata, 
náo sendo guardados na memória. 


NEW Limpa a memória e prepara o computador para receber um no- 
vo programa. 


RUN — Executa o programa que está na memória, a partir do comando 
de número mais baixo e até encontrar um comando STOP ou 
END. 


LIST Lista o programa ou trecho do programa que está na memória. 


Exemplos: 


LisT (lista o programa inteiro) 
LIST 100,200 (lista o comando 100 a 200) 
ou LIST 100-200 

LIST 100, 100 (lista o comando 100) 

ou LIST 100 


SAVE Guarda o programa da memória em fita de papel ou cassete para 
posterior execucáo ou arquivamento. 


LOAD Carrega o programa que foi guardado pelo comando SAVE. 
APPEND idéntico ao LOAD, só que permite que o programa da fita ou 
cartáo seja acrescentado ao programa existente na memória. 


Alguns comandos adicionais estáo listados no Apéndice C. 


1.7 O BASIC COMO MÁQUINA DE CALCULAR: 
EXECUCAO IMEDIATA DE COMANDOS SEM NUMERO 


Os comandos de controle NEW, LIST, RUN etc. sáo em geral usado sem o 
número de comando, e por isso, executados imediatamente, sem serem guardados 
na memória. Dizemos que a execucáo foi direta ou imediata. 


Entretanto, qualquer outro comando Basic (como o PRINT, LET etc.) pode 
ser usado em modo direto sem ser precedido de um número de comando. Esse 
comando é imediatamente executado, sem ser armazenado na memória. 
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Exemplo: 


NEW (executado imediatamente) 

READY 

PRINT 3, 7+8 (executado imediatamente) 

3 15 (resultados do PRINT) 
READY 
LET Z = 3+7 la variável Z recebe imediatamente o valor 
3+7 = 10) 
READY 


1.8 EXECUCAO DE COMANDO ATRAVÉS DE RUN 


Os comandos Basic precedidos de um número de comando sáo guardados na 
memória e executados, todos de uma só vez, através do comando RUN. Sofrem, 
portanto, uma execucáo indireta. 


Entretanto, qualquer comando de controle (NEW, LIST, SAVE etc.) tam- 
bém pode ser executado de modo indireto, juntamente com o programa Basic. 


Exemplo: 


100 INPUT A,B,C 
101 LET X = (A+B) / (3*C) 
105 PRINT X 


106 LIST 100, 105 (LIST usado de modo indireto) 
109 END 


Resultado; 


RUN 
? 3,5,1.5 


1.777778 Execucáo pelo RUN 
100 INPUT A,B,C 


101 LETX = (A+B)/(3 *C)  Listagem pelo LIST 100, 105 
105 PRINT X 
READY 


Observacó0es: 


e Se usarmos o comando NEW no modo indireto, todo o programa será 
destruído, por ocasiáo da execucáo pelo RUN. 


e O que acontece após a execucáo de 106 LIST depende da versáo BA- 
SIC, pois tanto pode voltar ao estado READY como continuar no es- 
tado de execucáo RUN. No exemplo anterior, o termo READY pode- 
ria ser produzido tanto pelo comando LIST como pelo comando 
END. Se utilizarmos 104 LIST 100, 101, antes do comando 105 
PRINT X poderia acontecer um dos casos seguintes: 


a) Primeiro caso 
RUN 
?3,5,1.5 (LIST sem retorno ao RUN) 
100 INPUT A,B,C 
101 LET X = (A+B) / (3*C) 
READY 


b) Segundo caso 


RUN 

?3,5,1.5 (LIST com retorno ao RUN 
100 INPUT A, B,C executando o PRINT) 

101 LET X = (A+B) / (3*C) 

1.777778 

READY 


1.9 EXERCICIOS DE APLICACÁO 


1. O que significa Basic? 
2. Quais sáo as características de uma linguagem Basic? 
3. Dizer o que fazem os seguintes comandos Basic 
NEW, LIST, RUN, SAVE, LOAD 
100 INPUT A, B,C 
101 LET X = (A+B) 
105 PRINT X 
107 PRINT X, A,B 
109 END 
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4. Definir e explicar os seguintes conceitos: 
e Terminal de microcomputador 
e Memória de microcomputador 
e Comando Basic 
e Comando de Controle 


5. O que é modo direto e modo indireto de execucáo de comando Basic? 
Dar exemplos. 


6. Quais as operacóes básicas do teclado para: 
a) Limpar memória? 
b) Carregar um programa Basic? 
c) Executar um programa? 
d) Listar a instrugáo NN do programa? 


Comandos INPUT, LET 


PRINT, REM e END 


2.1 COMANDOS UTILIZADOS NO CAPITULO (Ver Fig. 2.1) 


Passaremos a estudar o uso de cada comando BASIC. 


INPUT 


LET 


Recebe do terminal valores para as variáveis definidas no comando. 
Exemplo: 50 INPUT A, Z1, C 


Ao chegar a este comando, o programa interrompe a execucáo 
imprimindo o sinal ?. O programador deve fornecer, pelo terminal, 
trés valores numéricos separados por vírgula ou espaco. 


Executa as operacóes aritméticas. A palavra LET é opcional em 
muitas versdes de Basic. 
Exemplo: 1W3LETA=A+X 
105A=A+X*Y 
Operacdes possíveis: — adigáo (+) — divisáo (/) 
— subtracáo (-) — poténcia (f ou 
— multiplicacáo ( *) 


e) 


PRINT 


Escreve no terminal os valores das variáveis mencionadas no coman- 
do ou os comentários, colocados entre 2 sinais de aspas. 


Exemplo: 20 PRINT “VALORES”, A, B, C 


Se na memória existirem os valores A=5,B=1e C = 10, este 
comando escreverá, no terminal, a linha. 


VALORES 5 1 10 
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END Indica fim do programa Basic. Cada programa deveria usar um úni- 
co comando END. Se houver necessidade de terminar a execucáo 
em mais de um ponto do programa, deve-se usar o comando 
STOP. Porém, na maioria das versdes do Basic o uso de vários END 


no meio do programa é permitido. 


REM Usado como comentário, anotacáo ou título do programa. 
Exemplo: 111 REM CALCULO DA FORMULA X 


MEMORIA 


VARIAVEL VALOR 


COMANDO : 


Ja aeEseN 


COMANDO: 
3 PRINTZ 


1 INPUT X, Y 

2 LETZ= Xx + Y 
3PRINT Z 

4 END 

RUN 


TECLAR: 3e4 


30 Figura 2.1 — Comandos INPUT, LET e PRINT 


EXERCICIOS DE LER, ESCREVER E CALCULAR 


Escrever o comentário “OBA OBA” pelo computador. Comando utilizado: 


PRINT “...”, END, NEW e RUN. 


Programa: 
FLUXOGRAMA 
NEW 
10 PRINT “OBA-OBA” ESCREVER: 
20 END OBA-OBA 
RUN 


OBA OBA (Resultado) 


Ler e escrever os valores A,B,C. 
Comandos utilizados: INPUT, PRINT. 


NEW 

10 INPUT A,B,C. 
20 PRINT A,B.C. 
40 END. 


RUN 
? (comando INPUT solicitando valores de A, B e C) 
3,7, 10.53 (valores teclados pelo usuário) 

3 7 10.53 (valores impressos pelo cumputador) 


READY 
31 
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Uma segunda versáo do programa com comentário seria: 


NEW (segunda versáo do programa) 
05 REM 

10 INPUT A,B,C 

20 PRINT “A IGUAL A”, A 

30 PRINT “B IGUAL A”, B 

40 PRINT “C IGUAL A”, C 

60 END 


ESCREVER: 


“A IGUAL A”, A 


RUN "B IGUALA”, B 
3,7, 10.53 “C IGUAL 
AIGUALA 3 

B IGUALA 7 

C IGUAL A 10.53 


READY 


Nota: Comando PRINT sem variável ou comentário, permite a operacáo “pular 
uma linha.” 


Calcular e escrever o perímetro do triángulo de lados A, B e C. 
Comando utilizado: LET e LIST. 


NEW 
INPUT A,B,C 
LETP=A+B+C 
PRINT 


PRINT “PERIMETRO IGUAL A”, P 


PRINT CALCULAR: 


P=A+B+C 


ESCREVER: 
“PERIMETRO 
IGUAL A”, P 


(deixa uma linha em branco) 


PERIMETRO IGUAL A 
(deixa uma linha em branco) 


READY 


LIST (vai listar o programa que está na memória) 
10 INPUT A,B,C 

20 LET P=A+B+C 

25 PRINT 

30 PRINT “PERIMETRO IGUAL”, P 

35 PRINT 

50 END 

READY 


Ler e escrever mome e endereco de uma pessoa: variáveis náo numéricas 
ou strings: 


Programa: 


NEW 
5 PRINT “ESCREVA O NOME” 
10 INPUT N$ 
20 PRINT 
30 PRINT “ENDERECO” 
40 INPUT ES 
45 LET D$ = “12/0UT/1989" 
50 PRINT 
60 PRINT “DATA, NOME E ENDERECO” 
70 PRINT DS 
80 PRINT N$ 
90 PRINT ES 
100 END 


MENSAGEM:; 
“ESCREVA O 


MENSAGEM: 
“ENDERECO”” 


LER 
ENDEREGO: 
EM ES 


COLOCAR 
DATA EM: 
D$ 
ESCREVER: 
D$,NSeES 


FLUXOGRAMA: 
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Resultados: 


RUN 
ESCREVA O NOME 
7? JOAQUIM XAVIER (nome fornecido) 
ENDERECO 
7? RUA XODOH, N.13 (endereco) 
DATA, NOME E ENDERECO 

12/0UT/1989 
JOAQUIM XAVIER 
RUA XODOH, N.13 
READY 


2.2 VWARIÁVEIS E CONSTANTES NUMERICAS 


O Basic trabalha com variável, que assume qualquer valor dado; e com cons- 


tante, que assume valor fixo. As variáveis podem ser de dois tipos: numéricas e 
náo numéricas. 


Todas as variáveis numéricas recebem valor zero ao iniciar o processamento 
do programa. 


2.2.1¡ Variáveis numéricas simples 


Sáo definidas por uma letra, ou por letra seguida de dígito. Algumas versóes 
permitem o uso de mais de dois caracteres. 
Exemplos: 


X, Y,Z1,A9 


XX, 94, A34 (formas erradas, mas aceitas em algumas versdes) 


2.2.2 Constantes 


O Basic aceita valores numéricos entre + 1,0 x 107?? 


+ 1,0 x 10??, nas seguintes 
formas: 


Inteira, sem ponto decimal: 1, 99 ,10, 99999 
Decimal: 0.123 , 1.0, 99.978 
Forma Exponencial ou em ponto Flutuante 

-1.234E 03 +59 E-43 (que vale 59 x 107*?) 


2.2.3 Variáveis estritamente inteiras 


Muitas versóes do Basic permitem distinguir variáveis com os valores in- 


teiros, colocando o sinal de porcentagem (% )imediatamente após o nome da 
variável. 


Exemplo: 


Xx% 12% (só podem conter valores inteiros como -5, O, 35 etc.) 


2.2.4 Variáveis com nomes longos (mais de uma letra ou dígito) 


Algumas versdes mais poderosas do Basic (e que gastam mais memória) 
permitem o uso de nomes de variáveis mais longas, possibilitando melhorar o 
significado dado a essas variáveis. 


Exemplo: 


DATA, NOME, ROTULO-1 


2.3 VARIÁVEIS E CONSTANTES NÁO NUMÉRICAS 
OU STRINGS 


Quando o nome de uma variável simples estiver seguida pelo sinal ($) 


ela receberá apenas valores ou constantes náo numéricos, isto é, caráter alfabé- 


tico ou sequéncia de caracteres alfabéticos denominadas strings. Estas variá- 
veis náo podem ser utilizadas em operacóes aritméticas, mas sáo usadas em ope- 
racáo de Entrada ou Saída, Comparacáo, e de designacáo simples de valores. 


Exemplos: 
A$,B$,X5$ (variáveis náo numéricas) 
“ZERO”, “JOSE SILVA”, “015” (constantes alfanuméricas) 
LET A$ = “ANTONIO” (variável A$ contém ANTONIO) 
PRINT AS 


2.4 EXPRESSOES ARITMÉTICAS 


O Basic permite as seguintes operacdes aritméticas: 


.. 


fou potenciagáo 
ll multiplicacáo 
divisdo 
+ adicáo 


- subtragcáo 
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Exemplo: 


Expressáo 


bd + y) 
3 


21 R? 


Basic 
(1 2 + Y)/3 


2 3.1416 *R1? 2 


Calcular os valores das seguintes expressdes aritméticas: 


NEW 

10 INPUT A,B,C,D 
20LETX=A+B13 

30 LET Y = A +B/(C+D) 

40 LET Z = (A+B)/(C+D) - A *'B 
50 LET W =C*A/B 

60 PRINT X, Y, Z,W 

80 END 


(Potenciacáo) 


(Paréntese obrigatório) 
(Idem) 


(Paréntese desnecessário) 


Regra de Precedéncia ou Prioridade nas operacdes aritméticas. 


Em geral, a regra de precedéncia, ou prioridade obedecida para a execu- 
cáo das operacdes aritméticas é a seguinte: 


a) Dentro do mesmo nível ou conjunto de parénteses: 
Prioridade 1 : Potenciacáo 
2 : Multiplicacáo e Divisáo 
3 : Adicáo e Subtracáo 
b) Para duas operacóes de mesmo nível e mesma prioridade, como Adi- 


cáo e Subtracáo, a prioridade é da esquerda para a direita, isto é, a 
operacáo que está mais á esquerda é executada em primeiro lugar. 


c) As prioridades anteriores sáo sempre suspensas cada vez que for 
encontrada uma operacáo “Entre Parénteses”, que possui novo nível 
ou prioridade mais alta e deve ser executada primeiro. 


Portanto: 


LET A = X/(Y-D) é diferente de LET A = X/Y-D 

LET A = (C+D)/(B+W) é diferente de LET A = (C+D)/B+W ou 
LET A = C+D/(B+W) ou 
LET A = C+D/B+W 


Exemplo: paraC=2,B=3,D=5eW=3 


LET A = (C +D) / (B + W) = (2 + 5) / (3 + 3) =7/6 
LET A = (C + D) /B + W= ((2 + 5) / 3) +3 =7/3 + 3 
LETA =C+D /(B +W) =2 + (5/(3 + 3)) = 2 + 5/6 
LETA =C+D/B +W = 2 +(5/3) + 3 = 5/3+5 
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2.5. APLICACAO COMERCIAL: LISTAGEM DE RELATÓRIO 


Programa para calcular e listar resumo de PNB (Produto Nacional Bruto) 


Escrever um programa em Basic que efetue as seguintes operac0es: 


Ler valores de:  Producáo Industrial = 179.3 (em bilhóes 
de cruzeiros) 


Produgáo Agropastoril N = 251.5 
Servicos S = 201.7 
Compras do Governo G = 201.5 
Investimento no País N1 =53.0 
ExportacO0es E = 50.6 

ImportacOes |=41.3 

Depreciacdes D1 = 53.3 


Calcular os valores de: 


Balango do Comércio Exterior: N2 = E - 1 
Produto Nacional Líquido: N3 = D + N +S + G+N1 + N2 
Produto Nacional Bruto: G1 = N3 + D1 


Escrever uma tabela dos valores lidos, do produto nacional líquido e bruto. 


FLUXOGRAMA 
LER 


VALORES: 
D,N,S, G, 
ñ1, E, 1, D1 


CALCULAR: 
N2=E-1 
N3= D+N+S+G+N1+N2 
G1 =N3+D1 


IMPRIMIR: 
D,N,S, G, N2 
N3, D1 e G1 


Programa e Resultado 


0100 PRINT “FORNECER VALORES DE D,N,S,G” 
0115 INPUT D,N,S,G 


0118 PRINT “FORNECER VALORES DE N1, E, 1, D1”” 


0120 INPUT N1,E,1,D1 
0150 PRINT 
0160 PRINT 


0170 PRINT “b”, “CALCULO DO PRODUTO NACIONAL” 


0180 PRINT “HB”, “b”, “LIQUIDO E BRUTO” 
0190 LET N2=E-) 

0200 LET N3=D+N+S+G+N1+N2 

0210 LET G1=N3+D1 

0220 PRINT 


0240 PRINT “PRODUCAO INDUSTRIAL 

0250 PRINT “PRODUCAO AGRO-PASTORIL 
0260 PRINT “SERVICOS 

0270 PRINT “COMPRA DO GOVERNO 

0280 PRINT “INVESTIMENTOS NO PAIS 

0290 PRINT “BALANCO DO COMERCIO EXTERIOR 
0300 PRINT ” 

0310 PRINT “PRODUTO NACIONAL LIQUIDO 
0320 PRINT “DEPRECIACAO 

0330 PRINT *” 

0340 PRINT “PRODUTO NACIONAL BRUTO 


0360 END 
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$ RUN 
FORNECER VALORES DE D,N,S,G 
? 179.3,261.5,201.7,201.5 
FORNECER VALORES DE N1,E,1,D1 
? 53.0,50.6,41.3,53.3 


CALCULO DO PRODUTO NACIONAL 
LIQUIDO E BRUTO 


PRODUCAO INDUSTRIAL 
PRODUCAO AGRO-PASTORIL 
SERVICOS 
COMPRAS DO GOVERNO 
INVESTIMENTOS NO PAIS 
BALANCO DO COMERCIO EXTERIOR 


PRODUTO NACIONAL LIQUIDO 
DEPRECIACAO 


PRODUTO NACIONAL BRUTO 


2.6 EXERCICIOS DE APLICACAO 


1. Escrever os resultados produzidos pelos seguintes programas — Basic: (fornecer 
valores quaisquer pelo INPUT) 


1.a) 100 PRINT “PROGRAMA-EXERCICIO” 
200 PRINT “DATA: 31/JAN/1980"” 
300 PRINT “NOME: JOSE AGOSTINHO” 
400 END 
RUN 


1.b) 10PRINT “TITULO:...” 
20 INPUT X, A 
30 LETY=X+A 
40 PRINT X, A, Y 
60 END 
RUN 


1.c) 10 INPUT N 
20 PRINT “VALORDEN=",N 
40 PRINT “VALOR DE N, N+N, N+N+N"" 
50 LET Y = N+N 
60 LET Y1 = Y+N 
70 PRINT N, Y, Y1 
80 END 


2. Escrever programas em Basic que calculem: 


2.a) aárea do quadrado LxL para um valor de L lido. 


2.b) a área do círculo 1 R? e comprimento da circunferéncia 2 1 R para 
valor de R lido. 


2.c) aexpressio (x? + y?)/3 para valores lidos de x e y. 
3. Escrever um programa em Basic que escreva o nome e endereco seguintes: 
JOSE AUGUSTO XAVIER 
RUA JOAO X, 31 
S. PAULO — SP — CEP 00XX 


4. Escrever um programa em Basic que leia e liste os valores do gasto mensal em: 


VERDURAS Cr$ 3MIL 
PADARIA Cr$ 10 MIL 
GASOLINA Cr$ 55 MIL 
LIVROS/REVISTAS Cr$ 10 MIL 
CARNES/AVES Cr$ 15 MIL 
ROUPAS Cr$ 30 MIL 


DIVERSOS Cr$ 7 MIL 
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Fornecer, em conjunto com a listagem do nome dos ¡tens e seus respectivos 
valores, os seguintes totais: 


SUBTOTAL DE ALIMENTOS = Cr$ 
SUBTOTAL DE GASTOS ESSENCIAIS =— ALIMENTOS + GASOLINA 
SUBTOTAL DE GASTOS NAO ESSENCIAIS = LIVROS/REVISTAS + 
ROUPAS + DIVERSOS 
TOTAL GERAL DO GASTO DO MÉS =Cr$ ? 


*  Sugestáo: Seguir, como modelo, o exercício do item 2.5. 


Comandos de Repeticáo: 
FOR-NEXT 


3.1 COMANDO DE REPETICAO: FOR... NEXT 


Sáo usados em conjunto e permitem a repeticáo do trecho de programa 
compreendido entre o FOR e o NEXT. Equivalem ao comando DO do FORTRAN. 


Exemplo: 


20 FOR J=1 TO 10 STEP 2 


. trecho do programa 
30 NEXT J 


Nesse exemplo, os comandos que formam o “trecho de programa”' sáo exe- 
cutados 5 vezes, ou seja, para J= 1, 3, 5, 7 e 9; até atingir ou ultrapassar o valor 
limite 10. O incremento foi de 2 e, ao terminar a repeticáo, o programa prossegue 
após o comando NEXT J. Incremento igual a 1 pode ser subentendido. 


Os valores iniciais, fimais, e o incremento do contador de repeticáo J podem 
ser positivos, negativos, inteiros ou decimais ou, além disso, serem fornecidos 
através de express0es aritméticas. 


Exemplo: 


10 FOR K= 1 TO 10 
20 FOR K =1 TO X + Y STEP 0.53 


50 FOR K = 10 TO 1 STEP -1 


Observacáo: A variável K, que controla a repeticio NÁO pode ser alterada por um 
comando LET. 
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Exemplo: 


50 FOR K=1TO5 
51 LET K =K +2 (erro) 


52 NEXT K 


3.2 EXEMPLOS DE REPETICAO OU “LOOPINGS”' COM 
FOR-NEXT 


Escrever os valores entre —10 e 20, 


delaode REPETE: PARA 
10 FOR P= -10 TO 20 STEP 2 P de - 10220, 


incremento 2 
20 PRINTP 
30 NEXT P 
40 END 
RUN 


Resultado: Valores - 10, - 18,-6,..., 18e 20 
escritos um em cada linha. * 


LISTAR os valores da funcáo f(x) = x? — 2x para os valores x variando de 


—1 a +2 com incremento de 0.1. 


NEW 


X=-1a2, 
10 FOR X = -1TO 2 STEP 0.1 incremento 0.1 
20LETF=Xx13-2*X 
30 PRINT “XxX = “Xx” FOO = “EF CALCULAR: 
F= x?$3 -2*x 
40 NEXT X 
50 END 


RUN ESCREVER: 
xeF y 


F(X) = 1.000 


F(X) = 4.000 


Escrever a soma de valores interiores entre K, e K, 


NEW 
08 INPUT K1, K2 
10 FOR 1 = K1 TO K2 


20LETS=S+1 
30 NEXT l CALCULAR: 
40 PRINTS A 

+ (K1+2)+.. 
50 END 


Calcular a soma da série de Progressáo Geométrica 
S=1+a+ta?+a+4a%+...+aN 
e comparar o resultado com o valor da fórmula 


_aN+1 
A Mc 
1l-a 


Observacáo: O termo aK pode ser calculado como ((termo anterior 
aK+1) vezes a), o que reduz o processo de cálculo. 


NEW 

10LETS=1 

20 INPUT A, N 

30 LET A1 = 1 

40 FOR | = 1 TON 

50LETA1=A1* A 

60LETS=S+ A! 

70 NEXT 1 

80 LETS1=(1—At(N+1))/(1— A) 

90 PRINT “SOMA DA SÉRIE IGUAL A”, S 
100 PRINT “SOMA PELA FÓRMULA IGUAL A”, S1 
110 END 
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Verificacáo manual com comentários: 


10S=1 

20 LER A, N (por exemplo A = 2e N = 3) 

30 A1 =1 

40 PARA: | =1 I=2 I=3 

50A1=1x2=2 A1=2x2 A1=2x2x2 
60S=1+2 S=1+2+2?% S=1+2+2*+2*=15 


70 Volta para comando 40 ou termina repeticáo 
80 S1 =(1 -2*)/(1 — 2) =15 
90 Escreve: SOMA DA SERIE IGUAL A 15 

100 Escreve: SOMA PELA FORMULA IGUAL A 15 
READY 


NEW 


READY 
100 FOR K=1 TOS 
101 LET F1 =1 


102 FOR 1=1 TO K 

103 LET F1 = F1+*1 

104 NEXT | 

120 PRINT “FATORIAL DE”, K, “EH IGUAL A”, F1 
130 NEXT K 

300 END 
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“Programa para calcular o fatorial do valor de 1 a 5.” 


Comentários 


Início do ci- 
clo de repe- 
ticáo para 
K=1a5. 


Repeticáo 
para cálculo 
do fatorial 
de K. 


Fim do cál- 
culo de um 
fatorial. 


O Escreve re- 


sultado. 


O Volta para 


calcular mais 
um fatorial. 


Resultado: 


RUN 
FATORIAL DE 
FATORIAL DE 
FATORIAL DE 
FATORIAL DE 
FATORIAL DE 
READY 


EH IGUAL A 
EH IGUAL A 
EH IGUAL A 
EH IGUAL A 24 
EH IGUAL A 


CN 


APLICACÁO COMERCIAL: PRESTACOES E JUROS 


Cálculo do valor da prestacáo variando a taxa de juros: A matemática 
financeira fornece a seguinte fórmula para calcular o valor da prestacáo A 
de uma compra a prazo de valor P, a ser paga em n vezes: 


¡(1+1)7 
E ti | 
P: valor presente da compra 

i: taxa de juros 


Por exemplo, o valor de cada prestacáo anual A para pagar uma compra de 
P = $ 100.000,00, após 8 anos ao juro de 10% ao ano, é: 


APARA 


A= 100.000 x 77 "py8-y 


= $ 18.744 


Podemos calcular o valor da prestacáo A para qualquer taxa de juro i, varian- 
do de 6% até 12% ao ano. 
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Programa: 


100 PRINT “VALOR DA PRESTACAO” 

110 LET P=100000 

120 LET N=8 

130 PRINT “PARA PAGAR COMPRA DE $”,P ; “CRUZEIROS” 
140 PRINT “EM” ¿N; “VEZES” 

145 PRINT 

150 FOR 1=6 TO 12 STEP 2 

152 LET K=1/100 

155 LET J=(1+K)fN 

160 LET A=P *((K *9)/(4-1)) 

170 PRINT “JUROS DE” ;I; “% AO ANO PRESTACAO ANUAL $”, A 
180 NEXT 1 

190 END 


Resultados: 


HRUN 

VALOR DA PRESTACAO 

PARA PAGAR COMPRA DE$ 100000 CRUZEIROS 

EM 8 VEZES 

JUROSDE 6%AOANO PRESTACAO ANUAL $  16103.5946 


JUROSDE 8%AOANO PRESTACAO ANUAL $ 17401.4763 
JUROS DE 10%AO ANO PRESTACAO ANUAL $  18744.4017 
JUROS DE 12% AO ANO PRESTACAO ANUAL $  20130.2842 


READY 


3.3 REPETICAO DENTRO DE OUTRA REPETICAO 
(NESTED LOOP) 


É freqúente a ocorréncia de operacáo de repetigáo dentro de uma outra re- 
peticáo. (Figura 3.1) 


Neste caso é necessário observar algumas regras: 


— Uma repeticáo FOR-NEXT deve sempre terminar antes da repeticáo 
FOR - NEXT que a contém. 


— Dentro de uma repeticáo FOR-NEXT, é possível ocorrer várias outras 
repeticdes de mesmo nível, isto é, repeticóes que comecam após o tér- 
mino completo da outra. 

Exemplos: 


Podemos ter os seguintes casos: 


a) FOR-NEXT dentro de outro FOR-NEXT 


100 FOR 1=1 TO N 
150 FOR J=1 TO K1 


210 FOR K=2 TO S 


(etc. até um nível máximo permitido) 


270 NEXT K 
300 NEXT J 


400 NEXT | 


Exercício: Verificar o que faz o seguinte programa: 
100 FOR I=1T03 
200 FOR J=1TO4 
300 PRINT 1,J,1+J 
400 NEXT J 
500 NEXT | 
600 END 49 


50 


b) Vários FOR-NEXT de mesmo nível dentro de outro 


100 FOR I=1 TON 
180 FOR J=1 TO K1 

(nivel 2) (nivel 1) 
200 NEXT J 


250 FOR K=1 TOS 
(nfvel 2) 
280 FOR M=1 TO W 
(nivel 3) 
300 NEXT M 


350 NEXT K 


400 NEXT 1 


Cc 


— 


Repeticóes com erros 


170 NEXT J ] (faltou FOR J=. . .) 

200 FOR K=1 TO K1 

300 FOR M=2 TO S (FOR M= náo está totalmente conti- 
do em FOR K=.. .) 


400 NEXT K 


500 NEXT M 


e 


Ni UA 


S 
S 
3 
% 


4) 


195] SS 20 


IONJVZ 
10 FOR! = 1T02 HORAS ñ 
50 UN 


20 FOR J = 5TO 25 MINUTOS 40 


Y 


AN 


8 


30 FOR K = 3TO 80 SEGUNDOS 
(TRECHO DE REPETICAO) 

50 NEXT K 

70 NEXT J 


90 NEXT 1 


APLICACÁO COMERCIAL: PRESTACOES E JUROS VARIADOS 


Cálculo do valor da prestacáo variando juros e o número de prestagóes. 


Na aplicacáo anterior podemos fazer variar o número N de prestacóes, 


de 6,8 até 10 vezes, e obter os valores das prestacóes para as diversas taxas 
de juros. 


Acrescentamos o comando de variacgo de N: 
FOR N=$6 TO 10 STEP 2 
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Programa: 


100 LET P= 100000 

120 FOR N=6 TO 10 STEP 2 
130 PRINT “N="¡N;“VEZES” 
145 PRINT 

150 FOR I=6 TO 12 STEP 2 


(demais comandos sáo os mesmos da aplicacáo anterior) 
190 END 


Resultado: 


NEW 
N=6 VEZES 


JUROS DE 6%AO ANO PRESTACAO ANUAL $... 
JUROS DE 8%AO ANO PRESTACAO ANUAL $... 
JUROS DE 10% AO ANO PRESTACAO ANUAL $... 
JUROS DE 12% AO ANO PRESTACAO ANUJAL $... 


N =8 VEZES 


JUROS DE 6%AO ANO PRESTACAO ANUAL $... 
(etc.) 


N = 10 VEZES 
(etc.) 


READY 


3.4 MATEMÁTICA FINANCEIRA: OUTRAS FÓRMULAS DE 
JUROS E PRESTACOES 


Sejam: ¡— taxa anual de juros 
n — húmeros de períodos 


P— valor inicial atual ou valor presente do capital ou da compra. 
F — valor futuro do capital após n períodos 
A — valor de cada pagamento ou prestacáo paga em n vezes 


A tabela de Fórmulas de Juros apresentada a seguir mostra as 6 fórmulas 
que fornecem a relacáo de equivaléncia entre os valores P, F e A, dado os valores 
¡ en. (sem outras taxas como inflagáo e despesas). 


O Programa Basic da aplicacáo comercial corresponde á fórmula 5. 


Objetivo: 
Notacio 


DEE 


= in - : 
la 


F=A(F/A,i,n) 


Explicacáo: Obter 


Valor do capital F corresponden- 
te no fim de n períodos, ao valor 


P irfvestido na data inicial. 


Valor inicial P correspondente no 
fim de n períodos, ao valor F. 


Valor F correspondente no fim de 
n períodos a uma série de n pres- 
tardes A. 


Valor de cada prestacáo Á, a ser 


pago em n vezes, para capitalizar 
o montante F no fim do perfodo n. 


A=F (A/F,i,n) 
Valor de cada prestacáo A, a ser pa- 
ga n vezes, para amortizar o mon- 
tante P devido na data inicial. 


A=P(A/P,i,n) 


Valor presente P, correspondente 
na data inicial, a uma série de n 
prestacdes A. 


P=A(P/A,i,n) 


Nas notacóes abreviadas temos as seguintes relacOes de equivaléncia: 


(F/P.in) =14P/F, in) =  (1+iP 


4n 
(F/A,i.m) =1/(A/F, in) = pusot-1] 


a O 
(A/P,i,n) = 1/(P/A,i,n) = pS 


3.4.1 Uso das fórmulas: Exemplos 


Fórmula 1: 

Foi efetuado o empréstimo de Cr$ 200.000, á taxa de juros de 9% ao ano, e 
o pagamento deve ser feito em uma única parcela após 5 anos. 

O valor a ser pago é: 


F =P(1 +1)” = Cr$ 200.000 x (1 + 0,09)* = Cr$ 200.000 (F/P,9,5) = 


Cr$ 200.000 x (1,5386) = Cr$ 307.724,00 


Fórmula 2: 


Queremos acumular Cr$ 800.000 em 6 anos, recebendo juros de 8 %ao ano. 
O valor que devemos depositar hoje é: 


P=F[1( + 0,08)%] = Cr$ 800.000 (P/F,8,6) = Cr$ 800.000 x (0,6302) = 
= Cr$ 504.160,00 
Fórmula 3: 


O pagamento da prestacáo de Cr$ 10.000 pago no fim de cada ano, durante 
5 anos ao juro de 8%, fornecerá o valor acumulado de: 


5 
E =Cr$ 10.000 (119.081 | = Cr$ 10.000 x (F/A,8,5) = Cr$ 10.000 x 


x (5,8666) = Cr$ 58.666,00 
Fórmula 4: 


O valor da prestacáo ou depósito anual necessário para produzir o valor 
acumulado de Cr$ 20.000 após 6 anos ao juro de 10%é: 


A = Cr$ 20.000 [ a] = Cr$ 20.000 (A/F,10,6) = Cr$ 20.000 (0,1296) = 


= Cr$ 2.592,00 


Fórmula 5: 


Uma empresa investiu Cr$ 100.000 a taxa de 10 %ao ano, durante 8 anos. 
54  Esse capital pode ser recuperado mediante pagamentos anuais de: 


8 
A = Cr$ 100.000 home = Cr$ 100.000 (A/P 10,8) = Cr$ 100.000 
RA (0,1874) = Cr$ 18.740,00 


Fórmula 6: 


Qual o valor inicial necessário que permite, ao juro de 10% ao ano, a reti- 
rada anual de Cr$ 1000, durante 10 anos? 


eN (1+090 1  ]_ Ñ 
P = Cr$ 1.000 UI FOMIOXO | Cr$ 1.000 (P/A,10,10) = Cr$ 1.000 
: (6,1446) = Cr$ 6.144,60. 


3.5 OBTENCGAO DA TABELA DE JUROS E PRESTACOES POR 
COMPUTADOR 


Exercício: 


Um programa simples de computador, permite o cálculo da tabela dos 
valores: 

(F/P,i,m), (P/F ,i,n), (F/A,i,n), (A/F ¡,n), (A/P,¡i,n), (P/A,i,n) 

para qualquer taxa de juros / e período n, fornecendo, por exemplo os se- 
guintes resultados: (taxa de 8% ao ano.) 


Período n=1 
1.0800 0.9259 1.0000 1.0000 1.0800 0.0259 


Período n=2 
1.1664 0.8573 2.0800 0.4808 0.5608 1.7833 


Período n=3 
1.2597 


0.3880 2.5771 


0.3080 


0.7938 3.2464 


(etc.) 
Sugestáo: Ver aplicacáo dada. 
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3.6 EXERCICIOS DE APLICACAO 


1. Escrever os resultados produzidos por cada um dos seguintes programas em 
Basic: 


1.a) 10 FOR N=1TO 10 
20 LET X =X+1 
30 LETY=Y+N 
40 NEXT N 
50 PRINT X, Y 
60 END 
RUN 


1.b) 10 FORN=1TO5 
20 LETX=X+X"N 
30 NEXT N 
40 PRINT X 
50 END 
RUN 


1.c) 10 FOR | =-5 TO 5 STEP 2.5 
20 PRINT 1 
30 NEXT | 
40 END 
RUN 


1.d) 10 FOR X = 1 TO 10 STEP 2 
20 PRINT X 
30 NEXT X 
40 PRINT “BASIC” 
50 END 
RUN 


1.e) 10 FOR X =1 TO 20 
20 FOR Y =2T0 10 
30 FOR K=1TO 3 
35 PRINT X, Y, K 
40 NEXT K 
50 NEXT Y 
60 NEXT X 
70 END 
RUN 


2. Escrever programas em Basic que calculem as seguintes expressdes: 


2.4) Y=1+2+3+4+5+... N para N dado. 

2.b) Z=(x-1) +(x-2) +... +(x-N) para X e N dados. 

2c) W=U + U(U-1) + U(U-1) (U-2) +... + U(U-1) (U-2) +... + (U-N) 
para U e N dados 


3 5 N 
2d) S=xtk ++. € 
5! N! 

xk 


Sugestáo: O k-ésimo termo 


para x e N dados. (N (mpar) 


kl 


x? 
= (termo anterior). | ———— 
(k-1) « k 


3. Escrever um programa em Basic que leia as quatro notas N1, N2, N3, e N4 de 
20 alunos e forneca uma listagem de todas as notas e as médias de cada aluno. 


4. Escrever o programa Basic solicitado na secáo 3.5, para obtencáo da tabe- 


la de juros e prestacóes. 
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Comandos de Desvio 


Condicional IFe Desvio 
Incondicional GO TO 


4.1. COMANDOS IF. . .THEN 


| Usados na forma: 1F (condicáo) THEN (comando). | 


Se a condicáo for verdadeira, executa o comando que está após o termo 
THEN; se for falsa, ignora esse comando e executa o comando seguinte. (Ver 
Figura 4.1.) 


Exemplos: 
105 IF X + Y = 56 + Z THEN PRINT “OBA-OBA” 
130 IF A< 2*B THEN GO TO 200 


O comando GO TO 200 está, explicado na secáo 4.5. 
4.2 OPERACGOES RELACIONAIS 


As condic0es possíveis sáo definidas pelos seguintes operadores relacionais: 


= igual = menor 0u igual 
< menor >= maior ou igual 
> maior <> diferente 


As condicóes ou expressdes relacionais sempre resultam em verdadeiro ou 
falso, e nunca fornecem resultados numéricos. 


Exemplos: 
Xx5=9 (verdadeiro ou falso?) 


A1<>(7+3*R)  (verdadeiro ou falso?) 
A>=X+Y (verdadeiro ou falso?) 


MEMORIA 


10 LETA = Z 


20 IF A > X THEN > DESVIO 


> DESVIO 


80 STOP ou END 


Figura 4.1 Comandos IF-THEN e GO TO controlam desvios condicionais e 
incondicionais. 


4.3. OPERACOES LÓGICAS AND, OR E NOT 


Servem para ligar duas ou mais condigóes ou expressóes relacionais ou modi- 
ficar, através do NOT, o resultado de uma condicáo dada. 59 
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Formam sempre novas expressóes relacionais cujo resultado é falso ou ver- 
dadeiro. 


Exemplos: 


(A< 3) AND (A> 0) terá resultado verdadeiro se A<3e A>0 

(A< =B) OR (O Y) terá resultado verdadeiro se uma das condicdes 
(ou ambas) forem verdadeiras. 

NOT (A = B) equivale a A diferente de B. 

30 IFA =B AND X = 0 THEN PRINT “VERDADEIRO” 


4.4 COMANDO IF... THEN... ELSE 


Algumas versdes do Basic permitem o uso deste comando IF, que contém 
dentro do próprio comando a opcáo THEN a executar se a condicáo for verdadei- 
ra, e aopcáo ELSE a executar se a condicáo for falsa: 


Exemplo: 


05 INPUT X, Y 

10 1F X = Y THEN PRINT “X IGUAL A Y” ELSE PRINT “X 
DIFERENTE Y” 

20 END 


Resultado: 


RUN 

?3,5 (valores de X e Y) 
X DIFERENTE Y 

READY 


RUN 

751,51 

X IGUAL A Y 
READY 


Achar o valor máximo entre 10 valores lidos. 


Comandos usados: LET, FOR, NEXT, IF-THEN, GO TO. 


NEW 
10 LETM=-1E 10 (fixa valor negativo bem grande) 
20 FOR | =1 TO 10 
30 INPUT X 
40 1FM>XTHEN GOTO 60 (Se M > X, o máximo continua sendo M) 
50 LETM=X (Caso contrário, máximo éo novo valor X) 
60 NEXT | 
70 PRINT “MAXIMO M=",M 
80 END 
Resultados: 


RUN 


?5 (X=5 ,M=5) 

? -30 (X=-30,M=5) 

? 150 (X=150,M=150) 
? 120 (xX=120, M=150) 


etc. 
MAXIMO M=150 (ou qualquer valor maior lido) 
READY 


Achar o valor mínimo entre N valores lidos. 


"Comandos usados: READ e DATA no lugar de INPUT.' 
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NEW 

05 INPUT N 

10 M1 =+1 E 10 (fixa valor positivo bem grande) 

20 FORI=1TON 

30 READ X 

40 IF M1 < X THEN GO TO 60 

50 LET M1 = X 

60 NEXT 1 

70 PRINT “MINIMO IGUAL A”, M1 

80 DATA 35,-10,-5 (Escreve, separados por vírgulas, os N valo- 

90 DATA 41,5,50 res a serem lidos pelo READ) 
100 END 


Resultados: 


RUN 
?6 (valor de N=6) 


MINIMO IGUAL A -10 
READY 


Observacáo: Comandos READ e DATA seráo vistos no capítulo seguinte. 


4.5 COMANDO GO TO n 


Esse comando desvia a execucáo do programa para o comando de número n. 
A execugáo do programa continua seqúencialmente a partir da linha n. O número 
n pode ser maior ou menor do que a linha em que está o comando. 
Exemplo: 


10 INPUT A,B,C 
20LETD=A+B+C 
40 PRINT A,B,C 

50 PRINT D 

55 GO TO 10 

60 END 


Resultado: 


(valores A,B,C) 


(D) 


(aguarda novos valores de A, B, e C) 


Observacáo: Com o uso do GOTO o exemplo visto sempre permance no estado 
de execucáo RUN aguardando novos valores A,B e C. Para sair deste estado é 
necessário usar a tecla apropriada (RESET, BREAK ou equivalente) e assim 
teremos a palavra READY. 


O uso desnecessário do comando GOTO deve ser evitado. 


4.5.1 Uso da tecla BREAK para interromper a repeticáo (loop) 


Exemplo: 


10A=5 
20B=10 
30C=A *B 
40 PRINT C 
50 GOTO 10 
60 END 


Resultado: 
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No programa anterior o comando GOTO executa um “loop” (repeticáo) 
infinito, e isto em geral náo é desejado. A única maneira de se parar o programa 
anterior é através da tecla BREAK, e o programa será interrompido, indicando a 
mensagem: 


BREAK IN N 


onde N indica o n2 da linha em que o programa foi interrompido. 
Observacáo: Nem todos os micromputadores possuem a tecla BREAK. Pode-se 
usar o acionamento simultáneo de duas teclas: o CRTL (Control) e a tecla “C”. 


4.5.2. Outras formas possíveis do GOTO 


O comando GOTO pode ser digitado de trés maneiras: 


1) GOTO (sem espaco entre o GO e o TO) 
2) GO TO (com espaco entre o GO e o TO) 


3) Pode ser eliminado se usado dentro da opcáo THEN do comando IF. 


Exemplos: 


50 IF X = Y THEN GO TO 120 


50 IF X = Y THEN GOTO 120 


ou 
50 IF X = Y THEN 120 


PP AAA 


4.6. EXERCICIOS DE APLICACAO 


1. Para valor de A = 6, 3 e 5, escrever o resultado fornecido pelos programas. 


1.a) 20 1NPUT A 
30 IFA =5 THEN GO TO 70 
40 PRINTA 
50 GO TO 20 
70 PRINT A, “TERMINOU” 
80 END 
RUN 


1.b) 10 INPUT A 
20 IF A >5 THEN 60 
30 IFA =5 THEN 80 
40 PRINT “A MENOR QUE CINCO”, A 
50 GO TO 90 
60 PRINT “A MAJOR QUE CINCO”,A 
70GOTO 90 
80 PRINT “A IGUAL A CINCO”,A 
90 END 
RUN 


2. Para valores de A=5B =- 3eC=1, dizer qual o resultado de cada uma das 
express0es lógicas: 
2.2) (A>= 3) OR (B = 5) OR (C< 2) 
2.b) (A * B< = 10) AND (A — C >2) 
2.c) NOT (A * B< =10) 
2.d) ((A *B< =10) AND (B=C)) OR (A+B+C>5) 
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3. Escrever um único programa que calcule o valor da seguinte funcáo, para X lido: 


F=X+2 se X< 1 
F=x*x+1 sel <€X <5 
F=x *(x+1) se X>5 


Testar manualmente o programa para valores X=1,4€7. 


4. O conceito final da matéria de uma escola é dado pelo seguinte critério: 


Nota de 90 a 100 : Conceito A 
Nota de 75 489,9 : Conceito B 
Nota de 60 a 74,9 : Conceito C 
Nota de 50 a 59,9 : Conceito | 

Nota inferior a 50 : Conceito R 


Escrever um programa em Basic que leia as notas de 5 alunos e escreva o 
conceito correspondente. 


Testar manualmente o programa para as notas: 100, 89, 77, 91 e 45. 


Comando de Leitura: 
READ, DATA e 
RESTORE 


5.1 LEITURA DE DADOS PELO PAR DE COMANDOS 
READ E DATA READ. 


5.1.1 READ 


O comando READ faz com que os dados sejam lidos de um buffer definido 
pelo comando DATA. Os valores do DATA sáo atribuídos a cada variável do 
comando READ, sucessivamente. 


Observacáo: buffer significa local intermediário de armazenamento de dados. 


DATA 


O comando DATA armazena os dados como parte do programa. Esse co- 
mando náo é propriamente executado, especificando apenas o conjunto de dados 
necessário para os comandos READ que se encontram no programa. 


Os comandos DATA podem ser colocados em qualquer parte do programa 
(geralmente sáo colocados no fim) e seráo lidos seqiiencialmente conforme neces- 
sário. á 


5.1.2 READ e DATA 


Esses dois comandos devem atuar em conjunto e possuem certa semelhanca 
com o comando INPUT; exceto que o conjunto de dados em vez de entrar através 
do teclado do terminal, é colocado dentro do próprio programa, ou seja, indica- 
mos no comando READ as variáveis que devem receber os valores e, construímos 
uma tabela de valores numéricos ou strings de caracteres no comando DATA. 
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A atribuigáo de valores (dos comandos DATA ás variáveis dos comandos 
READ) é efetuada de modo seqúencial, a partir dos primeiros dados e variáveis, 
da esquerda para a direita. 


Náo é necessário usar um comando DATA para cada comando READ, pois 
a atribuicáo de valores é efetuada de variável em variável, de dado em dado, 
controlando-se apenas a seqúéncia e a quantidade dos valores atribuídos. Um con- 
tador interno controla a seqúéncia de leitura. 


Os dados de um único comando DATA podem servir a vários comandos 
READ e vice-versa. 


Leitura simples 
10 READ A, B, C 
20 PRINT A,B,C 


30 DATA 10, 20, 3.5 
40 END 


Resultado: 


(valores das variáveis A, B e C) 


Leitura com falta de dado 


10 READ A1, B1, C1 
20 PRINT A1, B1, C1 
30 DATA 10, 20 

40 END 


Resultado: 


RUN 
10 20 


ERROR IN 10 (falta de dado para a variável C1) 


Leítura com excesso de dado 


10 READ A1, B1, C1 

20 PRINT A1, B1, C1 

30 DATA 10, 20, 30, 40, 50 
40 END 


Resultado: 


(os dados 40 e 50 náo foram lidos) 


Vários READ e um só DATA 


10 READ A1, B1, C1 

20 PRINT A1, B1, C1 

30 READ D, E 

35 PRINT D, E 

40 DATA 10, 20, 30, 40, 50 
50 END 


Resultado: 


los dados lidos por dois READ estáo em 
um só DATA) 
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Leítura de strings 


10 READ A$, A1$, A2$ 

20 PRINT AS, A1$, A2$ 

30 DATA“BASIC”, **15”, “COMPUTADOR” 
40 END 


Resultado: 


COMPUTADOR 


5.2 COMANDO RESTORE 


Quando o comando READ termina de ler todos os dados contidos no co- 
mando DATA, esses dados náo podem ser relidos. 


O comando RESTORE foi criado justamente para eliminar esta limitacáo, se 
dentro de um programa desejamos repetir a leitura dos mesmos dados contidos 
nos DATA. O comando RESTORE zera o contador interno de dados, que aponta 
novamente o primeiro valor do primeiro comando DATA, podenao todo o 
conjunto de dados ser relido desde o início, através de novos comandos READ. 
Náo é possível voltar para um dado intermediário do DATA. 


10 READ A,B e  (Ler valores 1 e 2) 

20 PRINT A,B 

30 RESTORE e (Reinicia contador de dados) 
40 READC, D e  (Ler valores 1 e 2) 

50 PRINT C,D 

60 DATA 1,2 e (Dados lidos duas vezes) 

70 END 


Resultado: 


RUN 

1 2 
1 2 
READY 


Existem versóes de Basic onde o comando RESTORE pode ser usado da 
seguinte maneira: 


RESTORE nn 


onde 'nn' representa o número de linha que contém o comando DATA, a partir 
de onde desejamos reiniciar a leitura. 


5.3 APLICACAO COMERCIAL: DESCONTO EM NOTA FISCAL 


Cálculo de Desconto em Nota Fiscal 


Uma loja oferece os seguintes descontos sobre o valor da Nota Fiscal 
de compras efetuadas: 


valor desconto 


até $ 999 0% 
de $1000 a 2999 10% 
de $3000 a 4999 15% 
mais de $ 5000 20% 


Escrever um programa Basic que liste y n? e valor das notas fiscais 
e os respectivos descontos calculados. Totalizar o valor das notas e os des- 
contos. O n9 9999 de nota fiscal indica fim de operacáo. 
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NO = 9999? 


SIM NÁO 


ESCREVER: 
TOTAL — VEN- 


DAS E TOTAL — 
DESCONTOS 


INICIO 
CABECALHO 


VALOR < 
$ 1000 ? 
VALOR < 
$ 3000? 
VALOR < 
$ 5000 ? 
NÁO 


DESCONTO = 


VALOR X 0.2 


TOTALIZACOES: 
VALOR E 
DESCONTO 

CALCULADO 


ESCREVER: 
N2, VALOR E 
DESCONTO 


GOTO 1 


SIM 


DESCONTO = 0 


DESCONTO = 
VALOR X 0.10 


DESCONTO = 
VALOR X 0.15 


Programa 


0100 PRINT “CALCULO DE DESCONTOS EM NOTA FISCAL” 
0110 PRINT 

0120 PRINT “NUMERO VALOR DA NOTA DESCONTO” 
0130 PRINT 

0140 READ N,V 

0150 IF N = 9999 THEN 340 

0160 IF V< 1000 THEN 220 

0170 1F V< 3000 THEN 240 

0180 IF V< 5000 THEN 260 

0190 REM DESCONTO DE 20% 

0200 LETD=V *0.2 

0209 REM DESCONTO ZERO 

0210 GO TO 280 

0220 LET D=0 

0230 GOTO 280 

0239 REM DESCONTO DE 10 % 

0240 LETD=V *0.1 

0250 GOTO 280 

0259 REM DESCONTO DE 15% 

0260 LETD=V *0.15 

0270 REM TOTALIZACOES 

0280 LET T1=T1+V 

0290 LETT2=T2+D 

0300 PRINT N, V, D 

0310 GOTO 140 

0320 REM FIM DE CALCULO 

0330 REM ESCREVE TOTAIS 

0340 PRINT “====================n===n============== 
0350 PRINT “TOTAIS $”, 71, T2 
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0360 DATA 357, 800 
0370 DATA 410, 1200 
0380 DATA 1347, 1500 
0390 DATA 1511, 6000 
0400 DATA 9999, 9999 
0600 END 


READY 
H 


Resultados: 


HH RUN 
CALCULO DE DESCONTOS EM NOTA FISCAL 
NUMERO VALOR DA NOTA  — DESCONTO 


357 800 0 
410 1200 120 
1347 1500 150 
1511 6000 1200 
TOTAIS $ 9500 1470 
READY 

kid 


5.4 EXERCICIOS DE APLICACAO 


1. Explicar, com exemplo, a funcáo dos comandos READ, DATA e RESTORE. 
Qual a diferenca entre os comandos READ e INPUT? 


2. Dizer quais os resultados dos seguintes programas: 


2.a) 50 DATA 33, 55, -1, 43, 51 

60 READ Z, X 
70 READ Y, W 
80 PRINT Y, W,Z, X 
90 READ X 

100 PRINT Y, W, Z, X 

110 END 
RUN 


2.b) 10DATA 10 
20 READ X,Y 
30 DATA 5 
40 DATA 50, 100 
50 READ Z 
70 PRINTX, Y, Z 
80 END 
RUN 


2.c) 10 READ X, Y, Z 
20 RESTORE 
30 PRINT X, Y, Z 
35 READ W 
40 READ X, Y, Z 
50 PRINT X, Y, Z 
60 RESTORE 
70 READ X, Y, Z 
80 PRINT X, Y, W, Z 
90 DATA 5, 3, 4,9 
100 DATA 7, 7, 8, 15, 21 
110 END 
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3. Temos os seguintes valores referentes a uma classe de alunos: n9 e notas: 


NQ do aluno Física Matemática Portugués Química 
347 10 8 10 7 
348 9 8 10 7 
450 8 8 7 
510 8 9 10 7 
610 10 6 9 6 
734 5 4 7 7 
859 7 8 8 


Escrever um programa que leia esses valores (através do comando READ e 
DATA) e forneca uma listagem contendo: n2, notas e média de cada aluno. Após 
a listagem das notas escrever as médias da classe em cada uma das matérias. 


Comando PRINT: 
Uso do (*?), (:) e <PRINT 


6.1 UTILIZACAO DE V/RGULA E PONTO-E-VIRGULA COM 
O COMANDO PRINT 


O comando PRINT faz uso de vírgula (,) e ponto-e-vírgula (;) para fazer o 
controle de impressáo de mensagens na linha da tela ou impressora. 


Suponha o interpretador Basic que possui uma linha de impressáo de 72 ca- 
racteres, ou seja, cada linha da tela ou da impressora pode conter 72 caracteres. 
Esta linha de impressáo normalmente é dividida em quatro zonas de 18 caracteres 
cada uma que, somadas, completam os 72 caracteres. Veja o esboco a seguir: 


18-19 36-37 54-55 


' ZONA 3 


N 
O 
Zz 
> 
N 
[e] 
2 
> 
N 


O uso de uma vírgula separando as mensagens ou variáveis a serem impressas 
faz com que o Basic inicie a impressáo na zona seguinte disponível. O ponto-e-vír- 
gula coloca o valor a ser impresso na posigáo (e náo na zona) imediata após a 
última impressáo. 


com vírgula e ponto-e-vírgula 


a) 10 PRINT “COMPILADOR”, “INTERPRETADOR” 
20 END 
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RUN 
COMPILADOR INTERPRETADOR 


READY 
(Coluna 1) (col. de 19... 31) 


b) 10 PRINT “COMPILADOR; “INTERPRETADOR” 
20 END 


RUN 


COMPILADORINTERPRETADOR — (escreve imediatamente após 
primeiro dado) 


READY 


c) 10 PRINT “COMPILADOR”; 
20 PRINT “INTERPRETADOR” 
30 END 


RUN 


COMPILADORINTERPRETADOR 
READY 


No exemplo (c), apesar dos comentários terem sido colocados em 
tinhas de comandos diferentes, o ponto-e-vírgula colocado após a mensa- 
gem “COMPILADOR” fez com que o Basic imprimisse a segunda men- 
sagem na mesma linha suspendendo a impressáo no primeiro comando. 
Se na linha 10 náo fosse colocado o ponto-e-vírgula após a mensagem 
“COMPILADOR”, teríamos duas operacóes de impressáo. 


A utilizacáo do ponto-e-vírgula (;) separando os comentários ou 
valores faz com que o Basic náo busque a próxima zona de impressáo ou 
náo execute a impressáo, colocando-os um após a outro. 


d) Impressáo de valores seguidos. 
Por exemplo, supondo que X = 15 e Y = 25, teremos: 


PRINT X;Y imprimirá 1525 sem espaco entre os valores; 


PRINT X,Y; nada imprimirá, aguardando o próximo 
comando PRINTX 


15 
PRINT X teremos a impressáo de e 


e) Impressáo de pergunta e resposta. 


10 PRINT “QUAL E' O SEU NOME?”; 
20 INPUT A$ 

30 PRINT “BOM DIA”; AS 

40 END 


RUN 


QUAL E' O SEU NOME? ? MARIO (“tecla enter ou return”) 


BOM DIA MARIO 


READY 
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6.2 TRACADOR DE GRÁFICOS 


Tracamento do gráfico da fungáo Y =X **2+1. 


NEW 

READY 

100 FOR X = — 5 TO 5 STEP .5 
102 LETY=X*X+1 


104 FOR K = 1 TOY Imprime Y espacos em 
105 PRINT “4””; branco numa mesma li- 
106 NEXT K nha e entáo o sinal * * ” 
107 PRINT * *” 

108 NEXT X 

109 END 


(H ) — representa espaco em branco 


RUN 


6.3 USO DO SINAL DE INTERROGACAO (?) NO LUGAR 
DA PALAVRA PRINT 


Existem versóes Basic onde o comando PRINT pode ser substituído por 
uma interrogacáo (?). Em vez de se escrever a palavra PRINT, basta escrever o 
símbolo de interrogacáo (7). 


PRINT COM *?”" 


10 ? “MEMORIA” 
20 ? “UNIDADE CENTRAL DE PROCESSAMENTO” 
30 END 


RUN 


MEMORIA 


UNIDADE CENTRAL DE PROCESSAMENTO 
READY 


Observagáo: Durante uma listagem do programa pelo comando LIST, será 
sempre impressa a palavra PRINT, mesmo tendo sido usado o 


sinal (?). 


LISTAGEM DE *?”* 


10 ? “MEMORIA” 
20 ? “UNIDADE CENTRAL DE PROCESSAMENTO” 
30 END 


LIST 
10 PRINT “MEMORIA” 


20 PRINT “UNIDADE CENTRAL DE PROCESSAMENTO” 
30 END 
READY 
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6.4 A FUNCAO ESPECIAL CHR$ (N) 


Pademos imprimir qualquer caractere do código ASCI! utilizando a fungáo 
especial CHR$ (N). 


O valor de N varia de O até 255 e a cada valor numérico compreendido nessa 
faixa corresponde um caractere ASCII (ASCII — American Standard Code for 
Information Interchange). 


Listagem dos caracteres ASCHH: código 32 em diante. 


10 FOR | = 32 TO 255 
40 PRINT 1, CHRS(I) 
80 NEXT | 

90 END 


“pr (espaco) 


Observacáo: O programa deve ser melhorado para escrever os caracteres em mais 
colunas e assim economizar tempo e reduzir o uso de papel se for 
usada uma impressora. (Ver tabela ASCI no Apéndice B). 


Impressáo de comentários com aspas. 


Quando queremos forqgar a impressáo de aspas (que sáo usadas para separar 
comentários e por isso náo sáo impressos) usamos CHA $(34). 


10 PRINT CHR$ (34); “ORDEM E PROGRESSO”; CHR$ (34) 
20 END 


== _—___—__——— A 


RUN 


“ORDEM E PROGRESSO” 
READY 


Em algumas versóes de Basic, para se colocar um string entre aspas é utiliza- 
do um outro recurso: o de duplas aspas (** *). 


10 PRINT ” “ “ORDEM E PROGRESSO” ” * 
20 END 


RUN 


“ORDEM E PROGRESSO” 
READY 


6.5 MODO DIRETO DE IMPRESSAO: USO DO PRINT COMO 
UMA CALCULADORA 


O comando PRINT pode imprimir diretamente (sem esperar o comando 
RUN para executar o programa inteiro) valores ou resultados obtidos através de 
uma expressáo aritmética. Basta usá-lo sem o número de comando. 


83 


Operacáo direta com PRINT 


PRINT 10 
10 
READY 


PRINT 10, 20, 30 
10 20 30 
READY 


PRINT 5 +2 
7 
READY 


PRINT5+2,7+3,8 *2 


7 10 16 impressáo de resultado de expressdes 
aritméticas. 


6.6. COMANDO< PRINT PARA ESCREVER NO FORMULÁRIO 
DA IMPRESSORA (OU LPRINT) 


Esse comando é utilizado quando se deseja imprimir valores numéricos e 
strings em uma impressora em vez da tela de um terminal de vídeo. Pode ser usado 
com todas as atribuigóes do comando PRINT propriamente dito, ou seja, todas as 
caracter (sticas do comando PRINT podem ser usadas no comando < PRINT. 


Exemplo: 


Se digitarmos um programa através do teclado de um terminal de vídeo e 
substituirmos o comando PRINT por < PRINT, todos os resultados seráo apre- 
sentados em uma impressora. 


104A=3+2*3 
20< PRINTA 
30 END 


(valor da variável impresso em uma impressora) 


lo comando retorna automaticamente ao teclado do 
monitor de vídeo) 


6.7 EXERCICIOS DE APLICACAO 


1. Escrever os resultados fornecidos pelos seguintes programas. 


1.a) 10A$ = “BASIC b”* 
20 B$ =“PARA Y” 
30 C1$ = “ENGENHEIROS” 
40 PRINT A$; BS; C1$ 
50 END 
RUN 


1.b) 10 READ A$, B$,B1$ 
20 PRINT A$;BS$,B1$ 
30 READ B$, B1$ 
40 PRINT A$, B$, B1$ 
50 DATA “BASIC 4”, “NIVEL 11H”, 1983”, “BASIC”, “1984” 
60 END 
RUN 
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1.c) 10A$ =“0 VALOR DE” 
20 B$ = “D2” 
30 C$ = “E IGUAL A” 
40 A1=5 
50 B1 =3 
60 C1 =2 
70 D2 =A1 +B1 +C1 
80 PRINT A1, B1, C1 
90 PRINT AS, B$, C$, D2 
100 END 
RUN 


1d) 10A=5 
20B=3 
30 C1 =2 
40 D2=A+B+C1 
50 PRINT “O VALOR DE D2 E IGUAL A”; D2 
60 END 
RUN 


1.e) 10 PRINT“A=B *C-D” 

20 PRINT “VALOR DE B IGUAL A”; 
30 INPUT B 

40 PRINT “VALOR DE C IGUAL A”; 
50 INPUT C 

60 PRINT “VALOR DE D IGUAL A”; 
70 INPUT D 

80A=B*C-D 

90 PRINT A, B,C,D 
100 END 

86 RUN 


2. Dizer por que ocorreu a mensagem de erro nos seguintes programas: 


2.a) 


2.b) 


2.c) 


10 READ Al, AZ, A3, B1, B2, B3 
20 PRINT A1, A2, A3, B1, B2, B3 
30 READ B1, B2, B3 

35 PRINT B1, 82, B3 

40 DATA 1,2,3,4,5,6 

50 DATA 7, 8 

60 END 


ERROR IN 30 
READY 


10 READ A$,B,C5 

20 PRINT A$,B,C$ 

30 READ B,C$ 

40 PRINT A$,B,CS$ 

50 DATA “BASIC”, 1983, “NIVEL 11”, BASIC Il, 1983 


RUN 
BASIC 1983 NIVEL Il 


ERROR IN 30 
READY 


10 READ A$,B,C$ 

20 PRINT A$, B,C$, 

30 READ B,C$ 

40 PRINT A$,B,C$ 

50 DATA “BASIC”, 1983 “NIVEL 11”, 1983, “BASIC” 
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RUN 


ERROR IN 20 
READY 


. No exercício de — tracamento de gráfico — queremos efetuar as seguintes mo- 


dificacdes: 


3.a) Escrever, na respectiva tinha correspondente, os valores de X e Y. 
3.b) Alterar cada barra do gráfico para barra contínua do tipo: 


. Tragar o gráfico da fungáo 


y =x? +1 para xde 1a5. 


Reduzir a escala para 1/5. 
(Sugestáo: adaptar o exercício da secáo 6.2.) 


Variaveis Dimensionadas: 
Matrizes e Vetores 


7.1 VARIÁVEIS DIMENSIONADAS OU MATRIZES 


Para designar um conjunto de valores de uma tabela ou matriz, sáo usadas 
as variáveis dimensionadas. Sáo definidas por um nome formado por uma só letra 
e Índices colocados entre parénteses. As matrizes podem ser de uma ou de duas 
dimensdes e os Índices podem ser constantes ou variáveis simples. As matrizes 
de uma dimensáo sáo denominadas vetores. (Ver Figura 7.1.) 


Exemplos: 
A(1), W(100), X(1,2), B(M,3), Z(L,K) 


Nota: Algumas versóes do Basic permitem usar Índice zero. 


Exemplo: 
A(0), A(1), A(2), A(3),..., B(0,1), etc. 
Comando DIM 


DIM Reserva espaco na memória para as matrizes usadas no programa. 


Exemplo: 
110 DIM X(15), A(5,5) (definiu um vetor X com 15 elementos e 
uma matriz A com 5 x 5 elementos) Caida 
100 DIM X(N) (errado, pois N deve ter um valor numérico 
que informe o número tota! de elementos 
X(1).) 


Nota importante: é sempre recomendável colocar os comandos DIM no infcio do 
programa. Em qualquer outra linguagem (como FORTRAN, 
PL/1, PASCAL) essa exigéncia é obrigatória. O Basic aceita 
DIM no meio do programa ou mesmo na forma (10 INPUT N, 
20 DIM X(N)) que, entretanto, pode dar MENSAGEM DE 
ERRO na execucáo repetida desses comandos. 


a) DIM X(5): DEFINE VETOR COM 5 ELEMENTOS 


0.0 (valor inicial) 


b) DIM A(5,4): DEFINE MATRIZ 5 X 4 COM 20 ELEMENTOS 


A(1,1) A(1,2) A(1,3) A(1,4) 


c) LET A(3,3) COLOCA 


7 | VALORESNA 
INPUT A(5,5) e _ MATRIZ 


90 Figura 7.1 — Variáveis Dimensionadas. 


7.1.1 Programa para calcular a soma de dois vetores, A e B 


NEW Comentários 

READY 

100 DIM A(3), B(3), C(3) e Define local para vetores A,B e 
soma C 

110 FOR | =1T0 3 O Início da repeticáo 

120 INPUT A(1), B(1) e Leitura de um elemento de A e 
de B 

130 LET C(1) = A(1) +B(1) e Calcula um elemento do vetor re- 
sultado 

140 PRINT C(1) e Escreve o resultado 

150 NEXT | e Volta para ler novos elementos 

END 

Resultados: 


(valores A(1) e B(1)) 


(valor calculado C(1)) 


(valores A(2) e B(2)) 


(valor calculado C(2)) 
(valores A(3) e B(3)) 


(valor calculado C(3)) 


Observacáo: Para vetor ou matriz, de dimensáo até dez, o uso do comando 
DIM é facultativo, pois o Basic define automaticamente o vetor ou 
matriz de 10 ou 10 x 10 elementos, á medida que usamos uma va- 
riável dimensionada. Entáo o comando 100 DIM A(3), B(3), C(3) 
é dispensável. Para vetor ou matriz com dimensáo majer que 10 ou 
10 x 10 é necessário usar o comando DIM. 
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Exemplo: 


100 A(20), X(20, 15) 


7.1.2 Cálculo da média aritmética S = ERA (1=1,2,...,N) 
N 


Z VII) 
N 


Calcular a média aritmética S = (1=1,2...,N) 
E (v(1) - Sy? 


e a variáncia ou quadrado da dispersáo média D= N-1 


de N= 10 valores do vetor V= ÍV (1), V(2), ..., V(10)) 


NEW 
05 DIM V(10) (Define área da memória para o vetor) 
30 FOR 1 =1 TO 10 
40 READ VII) (Cálculo da média aritmética) 
50 LETS =S + VII) 
60 NEXT | 
70 LETS =S/10 
80 FOR | =1 TO 10 
90 LETD=D+(V(I)-S)12 (Cálculo da variáncia) 
100 NEXT | 
110 LET D = D/9 
120 PRINT “MÉDIA ARITMÉTICA IGUAL A”, S 
130 PRINT “QUADRADO DA DISPERSAÁO MÉDIA IGUAL A”, D 
140 DATA......... retorna na a 
7 
160 END 


7.1.3 Soma (ou subtracáo) de duas matrizes n x m 


NEW 

10 DIM A(20,20), B(20,20), C(20,20)  (Tamanho máximo das matri- 
20 INPUT N,M ze 

30 FOR!|=1 TON 

40 FORJ=1TOM 

50 INPUT A (1, J), B (1, J) (ou READ com DATA) 
60 LET C(1,J) = Al1,J) + B(1,J) 

70 PRINT C (1,3) 

80 NEXT J 

90 NEXT | 
100 END 


7.1.4 Multiplicacáo de duas matrizes 


Para multiplicar uma matriz A = (aj) de tamanho m x p por outra matriz 

B= (bj;) de tamanho p x n usamos a seguinte regra: 
*0 elemento cij da matriz produto C = (cjj) é obtido multiplicando-se termo a 
termo, a linha i da matriz A e a coluna j da matriz B, somando-se os resultados 


obtidos.” 
O número de colunas de A deve ser igual ao húmero de colunas de B. 


Entáo temos: 
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ami dm, -mp bp1 --- Dpn 


e Cij = aj1byj+ aja baj+.. + ajpbpj e ai 


A matriz C terá tamanho m x n. 


Escrever o respectivo programa em BASIC. 


NEW 


10 DIM A (20,20), B (20,20), C (20,20) (Define tamanho máximo das ma- 
trizes) 
20 READ M,P,N (Ler tamanho das matrizes) 


30 FORI=1TOM>? 
40 FORJ=1TOP 
50 READ A (1, J) (Leitura da matriz A(1,J)) 
60 NEXT J 
70 NEXT | 
80 FORI=1TOP ? 
90 FORJ=1TON 
100 READ B (1.J) (Leitura de B (1,J)) 
110 NEXT J 
120 NEXT 1 
125 PRINT “MATRIZ PRODUTO C (1,J)” 
130 FOR | =1 TOM 
140 FORJ=1 TON 
150 FOR K=1 TOP 


160 LET C (1,1) =C (1,3) + A (1,K)* B (K,J) 


170 NEXT K 

180 PRINT C (1,J); (Coloca C (1,3) na área de impres- 
190 NEXT J sáo para imprimir linha 1) 

200 PRINT “Bb” (Imprime uma linha | completa 
210 NEXT 1 de C(1,J)) 

220 DATA 3, 4,2 (Valores M, Pe N) 

230 DATA 4, 1,5, 2 

240 DATA 0, 2, 3,0 (Matriz A de tamanho 3x4) 

250 DATA 3,0,4,0 

260 DATA 2, 1.5 (Matriz B de tamanho 4x2) 


270 DATA 3,2 
280 DATA 1, 1 
290 DATA 4, 2 
300 END 


RUN 
MATRIZ PRODUTO 
17 
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7.2 EXERCICIOS DE APLICACAÁO 


1. Dizer o que é um vetor e como é representado em Basic? Dar exemplos. 
2. Dizer o que é uma matriz e como é representada em Basic? Dar exemplos. 
3. Para que serve o comando DIM? 


4. O que acontece se, no programa Basic, usarmos comandos com variável A (1,J) 
dimensionada, mas sem o uso do comando DIM? 95 
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Por exemplo: 


05 INPUT N 

10 FORI=1TON 
20 FOR J=1TON 
30 INPUT A (1, J) 
40 PRINT A (1, J) 
50 NEXT J 

60 NEXT | 

70 END 


5. Escreva um programa Basic que calcule a soma dos elementos da diagonal de 
uma matriz, isto é, 


a11 312 áln 

a21 a22 an 
A (1,3) = 

ani an2 aánn 


Soma dos elementos da diagonal = a, + 4322 +... +ann 


6. Escrever um programa Basic que calcule o produto de uma matriz A (1, J) com 
um vetor X (J). 
(Sugestáo: adaptar o exercício de multiplicagáo de matrizes.) 


Processamento Comercial 
de Dados Usando Basic: 
PRINT USING 


e Operacáo com Strings 


8.1 PROCESSAMENTO COMERCIAL DE DADOS USANDO BASIC 


O uso do Basic em aplicagdes comerciais envolve recursos adicionais dessa 
linguagem e que sáo: 
— manipulacáo de strings ou seqiiéncia de carateres; 


— manipulacáo de arquivo de dados em disco magnético. 


A grande dificuldade reside no fato que justamente esses dois recursos náo 
sáo padronizados nas diferentes versóes da linguagem Basic, variando grandemente 
em sua definicáo e capacidade de uso. 

Sempre há a necessidade de estudar detalhadamente os recursos de manipu- 
lacáo de strings e arquivos, através de manuais de utilizacáo de cada linguagem 
Basic que se acha em operacío. 

Apresentaremos idéias básicas sobre operacdes envolvendo sequéncia de ca- 
racteres e comando PRINT USING que permite a formatacáo ou especificacáo dos 
dados de saída de modo a formar resultados apresentáveis em documentos ou rela- 
tórios comerciais. (Fig. 8.1) O uso de arquivo de disco em alguns microcomputa- 
dores está na Apéndice A. 


8.2 DEFINICAO DE VARIÁVEIS QUE CONTÉM STR/NGS DE 
CARACTERES 


Já sabemos que uma variável que contém seqúéncia de até 525 caracteres é 
definida através de um nome seguido pelo sinal “$”, isto é, A$, B$, B1$, etc. 


Exemplo: 
10 A$ = “NOME DO ALUNO” 
20 PRINT A$, “BOM” 
Resultado: 


NOME DO ALUNO BOM 97 
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INPUT A 


Valor A é fornecido 
pelo teclado 


READ A 


Valor A é fornecido pelo comando DATA 


DATA 35 


PRINT A,X 


Valores de A e X sáo escritos em 
formato e posicóes pré-fixadas. 


PRINT USING “BS +44. 4H"; A; X 


$ 35.00$3.48 


Valores de A e X sáo editados (formatados) 
por uma máscara de edicáo. 


Figura 8.1. Formas diferentes de ler e escrever 


8.3 OPERACOES BÁSICAS COM STRINGS 


Exemplos: 


a) Concatenagáo ou uniáo de dois strings 
Exemplo: 
10A$ = “ANO” 
20 B$ = “BOM” 
30 PRINT AS + B$ 


Resultado: 
ANO BOM 


b) Comparagáo de strings 
Exemplo: 
301F Z$ = “MAXIMO” THENA= A+1 


c) Conversáo de string em valor numérico: funcáo VAL(X$) 


Exemplo: 
10 X$ = “123” e string 123 
20 X= VAL (X$) e X conterá valor inteiro 123 


Qutras operacdes com strings podem ser efetuadas através de funcdes apro- 
priadas apresentadas no fim deste capítulo. 


8.4 DEFINICAO DE TABELAS (ARRAYS) DE STRINGS 


Quando queremos trabalhar com um conjunto (tabela ou matriz) de nomes 
ou strings, podemos usar a seguinte definicáo: 


10 DIM A1$ (11) 


que define uma tabela A1$ de doze (de O a 11) strings distintos. 
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Exemplo: 


10 DIM A1$ (11) 

20 A1$1(0) = “JANEIRO” 

30 A1$(1) = “FEVEREIRO” 
40 A1$(2) = “MARCO” 


120 A1$ (10) = “NOVEMBRO” 
130 A1$(11) = “DEZEMBRO” 


Observacáo: Em algumas versdes Basic, entretanto, DIM A1$(11) define onze 
strings: de A1$(1) a A1$(11), o que parece mais coerente. A defi- 
nicáo de matrizes ou strings de duas dimensdes também é possível 
através do comando do tipo: 


10 DIM A2$(4, 3) 
onde A2$ pode conter os dados: 


(Tempo no período manhá, tarde, noite) 


BOM BOM BOM 
BOM NUBLADO CHUVOSO 
CHUVOSO CHUVOSO CHUVOSO 
BOM BOM BOM 
Exemplos: 
A (1,1) = “BOM” 


A (2, 3) = “CHUVOSO” 


Nota: Deve-se verificar sempre o uso correto de tabelas com string na versáo Basic, 
em uso, pois em algumas versdes A2$ (2, 3) pode significar os caracteres das 
posicdes 2 a 3 do string A2$, em vez do elemento (2, 3) da matriz A2$... 


Devemos lembrar também que o uso de tabelas (ARRAYS) de strings 
sempre ocupam grande espaco na memória. Por isso arrays de strings devem 
ser utilizados com bastante critério. 


8.5 PREPARACAO (EDICÁO E FORMATACAO) DE 
DADOS DE SAIDAS 


8.5.1  Impressáo com formato fixo dos dados 
A A A AI 
10 V1 = 10 
20 V2 = 20 
30 V3 = 30 
40 VA = 40 
50 PRINT V1, V2 
60 PRINT V3, Va 


70 END 
Resultado : 
[ RUN 
10 20 
30 40 


onde os dados sáo separados por número fixo de espaco. 


8.5.2 Uso da funcáo TAB para controlar espaco entre os dados 


Podemos definir o espacamento que queremos usando TAB e ”; ”. 


20 PRINT TAB (15); V1; TAB (15); V2 
30 PRINT TAB (15); V3; TAB (15); V4 


Resultado: 


(15 espacos) 10 (15 espacos) 20 


(15 espacos) 30 (15 espacos) 40 
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8.5.3 Comando PRINT USING para editar e preparar 
dados de saída 
Este comando possibilita editar os valores de saída através de colocacáo de si- 
nais “$”, “+”, o ponto e vírgula em qualquer parte do valor numérico. A edicáo é 
feita através de uma “máscara” de edigáo formada por esses sinais e pelo sinal 
$" colocado na posigáo onde deve ocorrer um dígito numérico. 


Os sinais possíveis de edicáo sáo: 


HF : indica que nesta posicáo deve aparecer um dígito numérico. 

(ponto): idem, um ponto. 

(vírgula) : idem, uma vírgula. 

$  : idem, um sinal “$”. 

$$ : sinal “$” flutuante, isto é, coloca um sinal $ á esquerda do alga- 
rismo ou dígito mais significativo. 


**  : preenche todas as posigdes á esquerda do dígito significativo com 
O Sinal “** * 


**$ : coloca asterisco antes do sinal $ flutuante. 


A máscara de edicáo pode aparecer dentro do próprio comando PRINT 
USING, ou ser colocada em uma variável qualquer, em forma de strings de carac- 


teres. 
No exercício a) apresentamos esses dois casos que sáo equivalentes. 


Exemplo: 


a) 10 X1 = 4342.23 ou 10 X1= 4342.23 
20 PRINT USING “$ AHHH"; XA 15 U$S ="“$4% HH.4Hp" 
Resultado: $ 4,342.23 20 PRINT USING U$; X1 


b) 30 X3 = 98.7654 
40 PRINT USING “VALOR = **$ HH"; 3 
Resultado: VALOR = **$98.76 


c) 10 X1 = 1.234 
20 X2 = 25.71 
30 X3 = 345.8 
40 PRINT USING “4444. 4H+ SIRIA SHAH", XA; 2; X3 

Resultado: $1.23 $25.71 $345.80 


Como ocorre a edicáo de dados 


A edicáo dos valores através das máscaras do comando PRINT USING 
ocorre do seguinte modo: 


Exemplos: 


a) Valor: 4 342.23 
Máscara: DAMA 
Resultado editado: $ 4,342.23 


b) Valor: 98.7654 
Máscara: VALOR = **"54 44.44 
Resultado: VALOR = **$98.76 


A posicáo do ponto decimal 


A posicáo do ponto decimal do valor (no Brasil usa-se vírgula decimal) fica 
automaticamente ajustada com o ponto decimal da máscara. 


No exemplo b) como houve menos dígito, na parte inteira do que o previsto, 
os sinais (**$) foram deslocados ou flutuados para a direita. 


Um exercício interessante seria colocar uma “vírgula decimal'” em vez do 
ponto decimal. Na maioria do Basic parece ser impossível editar diretamente a 
vírgula nessa posigáo. Uma alternativa seria transformar o valor numérico em valor 
inteiro, multiplicando-o por 1000 e desprezando as demais casas decimais usando a 
funcáo INT(X), após o que efetua-se a edicáo da vírgula entre a segunda e tercei- 
ra casa (INT(X) separa maior inteiro contido em X). 


Exemplo: 
10 X = INT (X * 1000) 
20 PRINT USING “$4 + +, 4"; X 


8.5.4 Uso do PRINT USING 


Exemplo: 


10 A = 10.356,8 = 101.4589,C = 1001.037,D = 1.097 
20 PRINT USING “/HH.14H"; A, B, C, D 
30 END 
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RUN 


10.356 
101.459 


(arredondamento) 


1001.037 (mensagem de erro, pois contém mais de 
de trés algarismos na parte inteira) 
1.097 


READY 


Observacáo: Comando número 10 contém várias operacdes aritméticas. 


8.6 FUNCOES QUE MANIPULAM STRINGS DE CARACTERES 
8.6.1 CHR$(X) — Converte valor numérico X em caractere ASCI! 


Faz a conversáo de um valor numérico ou resultado de uma expressáo arit- 
mética X, para o código ASCI! correspondente. (Ver Apéndice B). Essa fungáo pode 


ser utilizada como recurso especial, durante o processamento de um programa, em 
operacóes como: 


1. Dar um retorno de carro 

2. Dar um /íne feed 

3. Limpar a tela do vídeo 

4. Tocar um sinal de alarme para indicacáo de erro em um programa. 


Exemplos: 


Consideremos os seguintes códigos de caracteres ASCII e respectivos valores 
numéricos: 


Caráter ASCII Código Numérico 
LF (line feed) 10 
CR (carriage return) 13 
SP (space) 32 
F (letra F) 70 


Entáo: 


10 PRINT CHR$(10) — executa a operacío line feed 
20 PRINT CHR$(13) — executa a operacáo carriage 
return 


30 PRINT CHR$(70); CHR$ (32); CHR$(70) — imprime os caracteres: 
F Bb F (NU = espaco) 


8.6.2 ASC (N$): Converte caractere ASCII em valor numérico 


Fornece o valor numérico correspondente ao código ASCII do primeiro 
caractere dostring N$. Na realidade é a funcáo inversa da CHR$(N). Caso o string 
NS níáo seja definido, o interpretador Basic acusará uma mensagem de erro. 


Exemplo: 


10 A$ = “BASIC” 
20 PRINT ASC(AS$) 
30 END 

RUN 


Resultado: 


(escreveu o valor 66 correspondente ao 
caractere B no código ASCII) 


8.6.3 LEFTS (N$, X) — Fornece X caracteres mais á esquerda do 
string 


Esta funcáo separa os X caracteres mais á esquerda (ou X primeiros carac- 
teres) do string N$. 


Exemplo: 
10 N6 = “BASIC” 


20 PRINT LEFTS (N$, 3) 


30 END 105 


RUN 
BAS 


READY 


8.6.4 RIGHTS (N$,X) — Fornece X caracteres mais á direita do 
string 


Essa funcáo é simétrica a LEFTS, pois fornece os X últimos caracteres 
(ou caracteres mais á direita) de um string N$. 


Exemplo: 


10 N$ = “BASIC” 
20 PRINT RIGHTSINS, 3) 
30 END 


RUN 


8.6.5 MID (N$, X, Y): Fornece caracteres do meio do string 


Essa funcáo fornece os Y caracteres de string N$ contados a partir da posi- 
cáo X em diante. 


Exemplo: 


10 N$ = “FUNCAO” 
20 PRINT MIDS (NS, 3, 3) 
30 END 


RUN 
NCA 


READY 
106 


8.6.6 STR$ (X) — Transforma valor numérico em string 


Transforma os algarismos de um valor X em um stríng, onde X pode ser um 
número ou uma variável numérica. Depois que a funcáo STR$(X) é executada, os 
algarismos do string obtido náo podem participar de operacdes aritméticas, apesar 
de representar um número. Esta funcáo é diferente de CHR$(%), onde o valor 
numérico X é convertido em um único código ASCII correspondente, ao passo que, 
em STR$(X), cada algarismo, ponto decimal e o sinal que formam o valor X, sáo 
convertidos em seqúéncia (string) de caracteres ASCI!. 


Exemplo: 
10 X =21.7 (valor numérico 21.7) 
20 B$ = STR$IX) (string de caractere 21.7") 
30 PRINT X +1,BS 
40 END 


(seqúéncia de algarismos transformada para 
string, náo podendo sofrer operacbes aritmé- 
ticas) 


8.6.7 VAL (N$) — Transforma string em valor numérico 
É a funcáo inversa da STR$(X), ou seja, VAL(N$) é utilizada para voltar a 
dar a caracter (stica de um número a um string, transformado pela funcáo STR$. 


Com essas duas funcdes, podemos transformar um n£ em string, executar a 
operacáo de string desejada e novamente transformá-lo em número. 


8.6.8 Aplicacáo Comercial — Edicáo de sinal $ e acerto da posicáo da 
casa decimal 


Exemplo: 


Na secáo 2.5, Listagem de relatório do PNB (Produto Nacional 


Bruto), a posicáo das casas decimais dos valores náo estáo alinhados e os 
valores náo contém o sinal $. 


Podemos definir a máscara. 
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225 LETMS ="SAHFRAHFA" 


e transformar todos os comandos PRINT em PRINT USING e assim acertar 


a posicáo das casas decimais. 


Exemplo: 


240 PRINT USING “PRODUCAO INDUSTRIAL ” M$;D 
250 PRINT USING “PRODUCAO AGRO-PASTORIL  ”:¿M$:N 


(etc.) 


e teremos o seguinte relatório: 


PRODUCAO INDUSTRIAL $ 179.30 
PRODUCAO INDUSTRIAL $ 251.50 


INVESTIMENTO NO PAIS $ 53.00 


DEPRECIACAO $ 53.30 
PRODUTO NACIONAL BRUTO $ 949.60 


8.7 EXERCICIOS DE APLICACAO 


1. Qual a diferenca entre os comandos PRINT e PRINT USING? 


2. Quais sáo os sinais de edicáo do comando PRINT USING? Como deve ser 
usado cada sinal? 


3. Qual será o resultado escrito por cada comando PRINT USING? 


10 LET A = 3457.847 

20 LETAS =D AHHH" 

30 PRINT USING A$; A 

40 LET BS = “SAA ARA AHHA" 
50 PRINT USING B$; A 

60 LETOS = “+ HEHERHRHE" 

70 PRINT USING C$; A 

80 END 


4. Que faz a funcáo TAB(X)? Dar exemplos. 


5. Dar exemplos de comandos e resultados da operagáo das seguintes funcdes: 


CHR$(X), ASCIAS), LEFTS(AS, X), RIGHT (A$, X), 
MID (A$, X, Y), STR$(X) e VALÍAS). 


6. Se 
A$ = “VALOR MONETARIO” 
Xx =5 
Y=3 


dizer qual o resultado da aplicacáo de cada funcáo que manipula string 
CHR$, ASC$, LEFT$ etc., citados no exercício anterior. 
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Sub-rotinas e Funcoes 

Definidas pelo Usuário: 
Comandos GOSUB, (o) 
RETURN, ONe DEF 2/ 


9.1 DEFINICAO E USO DE SUB-ROTINAS 


Uma sub-rotina é um trecho do programa que é executado quantas vezes se 
queira, através de um comando chamado GOSUB. Quando uma mesma operacáo é 
executada várias vezes no mesmo programa, é conveniente separá-la como sub- 
-rotina e executar através do comando GOSUB. 


GOSUB n Desvia para o comando de número 7 como se fosse uma sub- 
-rotina e retorna quando encontrar o comando RETURN. 


RETURN Retorno do desvio devido ao comando GOSUB. 
Exemplo: 
10... Y 
20 


> programa principal 


30 GOSUB 600 (deseja-se calcular 
alguma coisa) 


500 

510 Sub-rotina que calcula operagdes 
solicitadas por GOSUB 500 

550 RETURN 

600 END 
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Observacáo: Após a execucáo da sub-rotina 500, o programa retorna para 
a linha 35 que está imediatamente após o GOSUB 500. 


9.2 COMANDO DE ESCOLHA ALTERNATIVA DE 
GOSUB OU GOTO 


ON Permite a escolha de um dos vários comandos GOTO ou GOSUB. 


Exemplo de GOTO: 


Para valor de X igual a 1, 2 0u 3, desvie para comandos 50, 20 e 30, 


respectivamente. 


05 ON X GOTO 50, 20, 30 


20... (desvio se X= 2) 
30... (desvio se X= 3) 
50... (desvio de X= 1) 


Observacáo: O desvio é feito para o número do comando que está na posi- 
cáo indicada por X. 


Exemplo de GOSUB: 


Se o valor da expressáío X+Y for 1,2 0u 3, desvie para sub-rotina 


100, 200 ou 300, respectivamente. 


10 ON X+ Y GOSUB 100, 200, 300 


100... Ñ 
Sub-rotina 


150 RETURN 
200... 

Sub-rotina 
250 RETURN | 
300... 

Sub-rotina 
350 RETURN 
400 END 


9.3 FUNCAO MATEMÁTICA DEF FNa(X) DEFINIDA PELO 


USUÁRIO 
DEF FMNa(X) Define uma equacáo matemática FNa(X) que o 
usuário pode usar nos comandos LET, PRINT, IF 
etc. Á terceira letra a deve ser fornecida pelo usuário 
para identificar uma funcáo da outra. 
Exemplo: 
10 DEF FNA(S) = 3 *X+2 (define f, (x) = 3x + 2) 
20 DEF FNB(X) = (X**2+1) (define f2 (x) = x? +1) 
30 PRINT FNA(5) (para X = 5, escreve f/ (5) =3x5+2= 17) 
40 PRINT FNB(3) (para X = 3, escreve f2 (3) =3 x 3+1= 10) 
50 LET W = FNA(2)*4 (calcula W = (3 x 2 + 2) x4) 


Nota: FNA(5), FNB(3) e FNA(2) náo sáo confundidos como variáveis dimensionadas, pois 
no Basic oficial as variáveis dimensionadas possuem uma só letra no nome. (Exemplo: 
F(2), N(3), etc.). Em Basic náo padronizado, que permite 3 letras como nome de variá- 
11 2. veis, é preciso consultar o manual do microcomputador. 


9.4 DIFERENCA ENTRE GOSUB E DEF FNa(X) 


O comando DEF FNa(X) só pode calcular um único resultado numérico, 
pois é formado por uma única equacáo matemática. 


A sub-rotina, chamada por GOSUB, pode ser formada por qualquer número 
de comandos, e portanto calcular mais de um resultado numérico. 


Exemplo: 


Para calcular a funcáo: 
f(x) =x? +2 para 0 <x< 1 


f(x) =0 para demais valores de x devemos 
usar a sub-rotina com GOSUB, pois 
f(x) possui mais de uma alternativa 


de cálculo. 


10 LET X =2 

20 GOSUB 500 (funcáo F(x) será 0) 
23 PRINT F 

25 LET X =0.2 

30 GOSUB 500 (funcio F (x) será 2.04) 
35 PRINT F 

40 GO TO 600 

500 REM FUNCAO F(X) 

510 LETF=0 

520 IF X<=0 THEN RETURN 

530 IF X>= 1 THEN RETURN 

540 LET F = X*X+2 

550 RETURN 

600 END 


Nota: No exemplo acima náo é preciso usar variável na forma F (x) que seria interpretada 
como variável dimensionada, o que náo é o caso. Notar que a forma Fx) só foi usa- 
da como comentário em 500 REM FUNCAO FÍx). 113 


Exemplo de comparacáo de rotinas com e sem uso de GOSUB-RE- 
TURN 


Calcular os valores de 


y 
q + bx!) e T = (k/2)! 


para valores de X e k dados (k = par). 


Programa Basic: 


SEM GOSUB-RETURN COM GOSUB-RETURN 
NEW NEW 
10 INPUT X, K 10 INPUT X, K 
20 LET F1=1 20 LET K1=K in (fatorial de K) 
30 FOR 1 =1 TO K 30 GOSUB 120 
40 LET F1=F1 *1 
50 NEXT 1 
60 LETS =(X* K)/F1 40 LETS =(X 1 K)/F1 
70 LET Fl =1 50 LET K1 =X l (fatorial de X) 
80 FOR1=1TO X 60 GOSUB 120 
90 LETF1=F1* 1 
100 NEXT 1 
110 LETS=S+F1 70 LETS=S+ F1 
120 LETT=1 80 LET K1=K/2 > (fatorial de K/2) 
130 FOR 1=1 TO K/2 90 GOSUB 120 
140 LETT=T"* 
150 NEXT 1 


160 PRINTS, T 


170 END 


100 PRINTS, F1 

110 END 

120 LET F1 =1 

130 FOR | =1 TO K1 (sub-rotina 
140 LET F1=F1*1 para fatorial) 
150 NEXT | 

160 RETURN 

170 END 


Observagáo: 


Os comandos GOSUB-RETURN tornam o programa principal mais curto 
e elegante, isto é, o programa torna-se melhor estruturado. O tempo gasto na exe- 
cucáo é sempre o mesmo. 


9.5 EXERCICIOS DE APLICACAO 


1) O que faz o comando GOSUB e RETURN? Dar exemplos. 


2) O que faz o comando DEF? Dar exemplos. 


3) Definir e usar as seguintes funcóes: 


3a) 
3b) 
3c) 


f(x) = kx 
f(x) =2x +x? 
fix) =k 

f(x) = x 


fo) =x?+k 


(k = constante) 


(k e x dados) 


parad<x<1 
para x<0 


para x21 


4. Transformar o Exercício da sepgáo 9.4 com GOSUB em programa equi- 


valente, usando DEF FNa(x) 


(Sugestáo: usar dois comandos DEF FNa(X)) 
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Principais Funcóes 
Fornecidas pelo Basic 


10.1 RESUMO DAS FUNCOES 


O Basic pode fornecer as seguintes funcdes prontas para o uso: 


Funcgó0es aritméticas 


Nome 


ABS(X) 
LOG(X) ou LN(X) 
EXP(X) 
SOR(X) 
SGN(X) 


INT(X) 
()EFIXOO 
RND(X) 
(*)CDBL(X) 
(*) CSNG(X) 


Operacáo 


valor absoluto de X 
logaritmo natural de X 
valor da exponencial e* 
raiz quadrada de X 


valor 1seX > 0, 
0OsexX=0e 
-1 sexX<O0. 
maior inteiro contido em X 
parte inteira de X 


valor aleatório entre O e 1. 


Exemplo 


LET Y = ABS(X+3) 
LET Y = LOG(X) 

LET Y = EXP(3.1415) 
LET Y = SOR(2) 


LET SGN(X*"3) 


LET Y = INT(X) 
LET Y = FIX(X) 
LET Y =RNDO) 


converte X para precisáo dupla 


converte X para precisáo simples 


Funcóes trigonométricas 


SIN(X) — seno de X (X em radianos)  LET Y = SIN(3.1415) 
COosíx) — cosseno de X (X em radianos) LET Y = COS(3.1415) 
TAN(X) — tangente de X (X em radianos) LET Y = TAN(X) 


Fungóes trigonométricas inversas 


ATN(X) — arco-tangente de X LET Z = ATAN(1) 
(ACS(X) — arco-cosseno de X 
(*ASN(X) — arco-seno de X 


Funcóes de controle de impressáo 


TAB(X) — posiciona impressáo na coluna X  PRINT TAB (22) 


Fungóes que manipulam strings de caracteres (ver exemplos no capítulo sobre 
PRINT USING) 


CHR$(X) — converte valor X em caractere ASCII 

ASC(N$) — converte primeiro caractere do string em valor numérico 
(*) LEFTS(NS$,X) — fornece X caracteres mais á esquerda do string N$ 
(*) RIGHT(N$,X) — fornece X caracteres mais á direita do string N$ 
(') MIDS(NS$,X,Y) — fornece Y caracteres a partir da posicáo X de N$ 
(*)STRS(X) — transforma valor numérico X em string de caracteres 


(")VALS(N$) — transforma string N$ em valor numérico. 


Exemplos: 


PRINT CHR$ (32) 


PRINT ASC(A$) 
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Observacáo: 
a) (*) — pode náo estar disponível em algumas versóes do Basic. 
b) — O argumento X da funcáo pode ser: 
— uma variável: X, Z, A1, A(3) 


— uma constante: 3.1415, 1, -100 
— expressáo aritmética: X +3 *Y, 3.1415 + X 


10.2 FUNCOES ARITMÉTICAS 
10.2.1 ABS(X): Valor absoluto de X 


Fornece o valor absoluto (módulo) do argumento X que está entre parán- 
teses. 

Se o argumento for um n? positivo (X> 0) a funcáo retornará com o pró- 
prio valor do argumento. 


Se o argumento for um n9 negativo (X < 0) a funcáo retornará com o va- 
lor do módulo de X. 


Exemplos: 


10 PRINT ABS(-10) 

20 PRINT ABS(20) 

30 X = -50 

40 PRINT ABS(X) 

50 PRINT ABS(9 *(-4)) 
60 PRINT ABS (X* (-3)) 
70 END 


Resultados: 


RUN 
10 (linha 10) 
20 (linha 20) 
50 (linha 40) 
36 (linha 50) 
150 (linha 60) 


10,2.2 LOG(X) (ou LN(X)) — Logaritmo Natural 


Fornece o logaritmo natural (base e) do argumento Xx (X> 0) 
Exemplos: 


10 PRINT LOG(10) 

20 PRINT LOG(3) 

30 X =-3 

40 PRINT LOG(X*((-2)) 
50 END 


Resultado: 


RUN 
2.302585 


1.098612 
1.791759 


10.2.3 Mudanca de Base do Logaritmo 


Para se determinar o logaritmo de um número em uma outra base A, deve-se 
proceder da seguinte forma: 


LOG(X) = LOG(X)/LOG(A) 
BASE= A e e 


Exemplo: 


Suponha que desejemos calcular o logaritmo de 2 na base 10, ou seja, 
LOG (2). 
10 


Fazemos o programa abaixo: 


10Xx=2 
20A=10 
30 PRINT LOG(X)/LOG(10) 


40 END 119 


Resultado: 


10.2.4 EXP(X) — Exponencial e* 


Calcula o valor de e*. É a funcáo inversa do logaritmo natural, ou seja, cal- 
cula o inverso da funcáo LOG(X). 
Portanto: 
EXP(LOG(X)) vai valcular o próprio valor x. 
Exemplo: 


10 PRINT EXP(2.302585) 
20 PRINT EXP(1.098612) 
30 END 


Resultado: 


10.2.5 SQR(X) — Raiz Quadrada de X 


Fornece a raiz quadrada do argumento X. 
O argumento deve ser um número positivo maior ou igual a zero. 


120 Caso contrário será indicada uma mensagem de erro. 


Exemplos: 


A EI E A A 
10 PRINT SOR (4) 


20 X=3 

30 Y =27 

40 PRINT SOR(X),SOR(Y),SQR(X*Y) 
50 END 


1.732051 5.196152 
READY 


10.2.6 SGN(X) — Sinal de X 


Esta funcáo faz o teste do sinal do argumento X. 
Fornece, como resultado, os valores abaixo relacionados: 


se X>0 
0Ose X=0 
-1se X<0 


Exemplos: 


10 PRINT SGN(10) 

20 PRINT SGN (-15) 

30 X = 13 

40 Y =-3 

50 PRINT SGN(X), SGN(Y), SGN(X+ Y) 


60 END 
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10.2.7 INT(X) — Maior inteiro contido em X 


Esta funcáo fornece o maior valor inteiro menor ou igual a X. 


Exemplo: 
READY 
10 PRINT INT (75.78), INT (-11.13) 
20 END 
RUN 
75 -12 


10.2.8 FIX(X) — Parte inteira de X 


Esta funcáo fornece a parte inteira de X. 
A funcáo FIX(X) é considerada equivalente ¿3 SGN(X) X INT(ABS(X)). 


A diferenca principal entre a funcáo FIX e INT é que FIX(X) fornece o 
inteiro seguinte(e maiorjao valor X quando este é negativo e náo o maior inteiro 
contido em X, como acontece se X é positivo. 


Exemplo: 


READY 
10 PRINT FiX(77.82) 
20 END 


10 PRINT FIX (-77.82) 
20 END 


RUN 
-17 
READY 


10.2.9 RND(X) — Valor aleatório entre O e 1 


Esta funcáo gera, por sorteio, um valor aleatório equiprovável entre O e 1. 
Na teoria da probabilidade, dizemos que RND(X) gera um valor com distribuicáo 
uniforme. 

Esta funcáo é diferente das demais, no sentido de que basta fornecer um 
valor inicial X (entre O e 1) para termos, automaticamente, o valor aleatório equi- 
provável, a cada utilizacáo da funcdo RND(X). 


O valor inicial X (chamado “'semente'”) serve para fornecer uma seqúéncia 
aleatória de valores entre O e 1, á medida que usarmos RND(X). Para outro valor 
inicial X, teremos uma seqúéncia diferente. A funcáo RND(X) é usada no progra- 
ma de simulacáo e de jogos de azar. 


Exemplos: 

10 LET X =0.35 (valor inicial X = 0.35) 

15 FOR!|=1TO5 

20 LET Y = RND(X) fornece uma seqúiéncia de cinco valores 
30 PRINT Y aleatórios; por exemplo: 0.689, 0.234, 0.543, 
40 NEXT 1 0.378, 0.607. 

50 FOR | =1 TO 3 

60 LET Z = RND(.77) (valor inicial X = 0.77) 

70 PRINT Z fornece outra sequéncia de trés valores aleató- 
80 NEXT 1 rios; por exemplo: 0.971, 0.734, 0.451 

90 END 


yy 0 E O O O DO O OO DO O DN 
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10.2.10 CDBL(X) — Converte X para precisáo dupla 


Faz a conversáo de uma variável numérica ou de uma expressáo aritmética 
para um número de dupla precisáo. 


Exemplo: 


10 X = 454.67 
20 PRINT CDBL(A) 
30 END 


RUN 


454.67001234277344 
READY 


10.2.11 CSNG(X) — Converte X para precisáo simples 


Faz a conversáo de uma variável numérica ou de uma expressáo aritmética 
de dupla precisáo em um número de simples precisáo. 


10.3  FUNCOES TRIGONOMÉTRICAS 


10.3.1 SIN(X) — Seno de X 


Fornece o valor do seno do argumento X que deve estar expresso em radia- 
nos. 


Exemplos: 


10 PRINT SIN(0.523599) 
20 PRINT SIN(0.785398) 
30 X = 1.047198 

40 Y = 1.570796 

50 PRINT SIN(X), SIN(Y) 
60 END 


RUN 
0.5 


0.707107 
0.866026 


Nota: A precisáo do valor obtido pode variar de versáo para versáo. 


10.3.2 COS(X) — Co-seno de X 


Fornece o valor do co-seno do argumento X que deve ser expresso em radia- 
nos. 


Exemplos: 


10 PRINT COS(1.047198) 
20 PRINT COS(0.523599) 
30 X = 0.785398 

50 PRINT COS(X) 

60 END 


RUN 


0.499833 


0.866026 
0.707107 


10.3.3 TAN(X) — Tangente de X 


Fornece o valor da tangente do argumento X que deve estar expresso em 
radianos. 
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Exemplos: 


10 PRINT TAN(0.523599) 
20 PRINT TAN(0.785398) 
30 X = 1.047198 

40 Y = 1.570796 

50 PRINT TANOO, TAN(Y) 
60 END 


Observacáo: Náo está definido o valor da tangente de 7 /2 ou 1.570796, 


10.4 FUNCOES TRIGONOMÉTRICAS INVERSAS 


10.4.1 ATN(X) — Arco tangente de X 
Fornece, em radianos, o valor do arco, cuja tangente é X. O valor do arco 
estará compreendido entre —- 1. /2a+r /2. 


Exemplos: 


10 PRINT ATN(1) 

20 PRINT ATN(.577350) 
30 X = 1.732051 

40 Y = 3.732051 

50 PRINT ATN(X), ATN(Y) 
60 END 


RUN 


0.785398 
0.523599 
1.047198 1.308997 


Para obter o valor em graus dos valores numéricos acima, basta multiplicar 
ATNIX) por 57.29580. 


Exemplo: 


10 PRINT 57.2958 + ATN(1) 
20 PRINT 57.2958 » ATN (.577350) 


10.4.2 ACS(X) — Arco co-seno de X 


Fornece, em radianos, o arco cujo co-seno é X. 


Exemplos: 


10 PRINT ACS(0.499833) 
20 PRINT ACS(0.866026) 
30 X = 0.707107 

50 PRINT ACS(X) 

60 END 


RUN 


1.047198 
0.523599 
0.785398 


10.4.3 ASN(X) — Arco seno de X 


Fornece o arco cujo seno é o valor do argumento X. 
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Exemplos: 


10 PRINT ASN(0.5) 

20 PRINT ASN(0.707107) 
30 X = 0.866026 

40 Y =1 

50 PRINT ASN(X), ASN(Y) 
60 END 


RUN 
0.523599 


0.785398 
1.047198 1.570796 


10.5 APLICACOES 


Exemplos de uso das fungdes trigonométricas: 


Escrever uma tabela de SIN(X) (seno) colocando os valores de X (em 


radianos) e SIN(X) dispostos em duas colunas de impressáo. X varia de O a 
3.455 radianos com incremento igual a 7 /10 (0.31415). 


a) Programa usando funcáo SIN(X) 


10 PRINT “X—RD SIN(X) X—RD SIN(X)” 
20 PRINT * 1-—-—--—— 1 e 
30 FOR X =0 TO 1.884946 STEP 0.31415 
40 LET Y = SIN(X) 
50 LET X1 = X + 1.88485 
60 LET Y1 = SIN(X1) 
70 PRINT X, Y, X1, Y1 
80 NEXT X 
128 90 END 


b) Programa usando sub-rotina própria SEN(X) e comando GOSUB. 


0010 PRINT 'X—RD SEN(X) X—RD SEN(X)” 
0020 PRINT “1 ——————========-- LO yr 
0030 FOR K = 0 TO 1.884946 STEP 0.3415927 

0032 LET X =K 

0035 GOSUB 1000 

0040 LET X = X1 

0050 LET X = X + 1.88485 

0055 GOSUB 1000 

0060 LET Y1 = X1 

0070 PRINT K, Y, X, Y1 

0080 NEXT K 

0090 END 

1000 REM SENO X 

1005 REM X1 = SEN(X) 

1015 REM 

1020 LET N1 =1 

1025 LET N2 = -1 

1030 LET X1 =0.0 

1035 LET X2 =1.0 sub-rotina SEN(X) 
1040 LET X3 = X 

1055 FORN =1T0 15 

1056 LET N1=N1 +N 

1060 LET X2 = X2 + X3 

1070 IF N = (INT (N/2) *2) THEN 1085 

1075 LET N2 = INT (N2 + (-1)) 

1080 LET X1 =X1 +(X2 + INT (N2))/(INT (N1)) 

1085 NEXT N 
1090 RETURN 
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Resultados: 


0.31415927 


0.62831854 


0.94247781 


1.25663708 


1.57079635 


0.309016996 


0.587785257 


0.809016999 


0.951056525 


0.999999996 


2.19900927 


2.51316854 


2.82732781 


3.14148708 


0.951089137 


0.809079063 


0.587870653 


0.309117275 


1.04816611E — 04 


3.45564635 -0.308920425 


c) Programa para tragar gráficos do seno 


Tragar um gráfico da fungáo SIN(X) para X variando de O a 27 . 


Resolucgáo: Como SIN(X) varia de -1 a +1, fixamos uma escala de -20 a 20 posi- 
c0es de impressáo para Y = INT(SIN(X) * 20) 


Assim: 

SIN(X) = -1 corresponde á posicáo -20 do gráfico 
SINO = -0.5 corresponde á posicáo -10 do gráfico 
SIN(X) =0 corresponde á posicáo O do gráfico 
SINOO =0.5 corresponde á posicáo +10 do gráfico 
SIN(X) = +1 corresponde á posicáo +20 do gráfico 


etc. 


Programa 


10 PRINT ”-1 40.5 

20 PRINT **1-—-------=- [S+===2 a a | 
30 FOR X =0TO 6.28318 STEP 0.15707 

40 LET Y = INT(SIN(X) * 20) 

50 FOR | = -20 TO Y 


60 PRINT “B” 

70 NEXT | 

80 PRINT “X” 

90 NEXT X 
100 END 


Observacáo: (bb) — espaco em branco. 


Resultado do exercicio 


RUN 1 13 o +06 + 
Tar Tiro Teen“ Tao 1 
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10.6. EXERCICIOS DE APLICACAO 


1. 


Escrever, usando Basic, os valores de cada funcáo deste capítulo no intervalo 
fornecido. 


Por exemplo: Y = ABS(X) para X = -50 a+ 50 
Y = SOR(X) para X =-50 a +50 
etc. 


Alterar o exemplo de SIN(X) para escrever uma tabela do COS(X) e TAN(X] 
para X de O até 3.455 radianos: 


. Tracar gráficos das func0es cujos valores foram calculados no exercício 1. 


(Sugestáo: modificar o exemplo de SIN(X). 


Aplicacáo: Cinco 
Fórmulas Diferentes para 
Obter o Valor de n TA 


11.1 FÓRMULA CHINESA (CERCA DE 470 a.C) 


“0 valor de Tr foi expresso como número racional 355/113.” 


Nota: n2 racional é a representagáo de um valor numérico como quociente de dois valores 
inteiros. 


Resultado: 


Com PRINT 355/113 


temos Tr = 3.1415929 


11.2 FORMULA DO INDIANO ARYABHATA (CERCA DE 510 a.C.) 


“0 valor de T foi expresso como número racional 62832/20000.”* 


Resultado: 


PRINT 62832/20000 


Tr = 3.1416 


* Adaptado de Mathematics teaching. New York, Harper Row. 133 
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11.3 FÓRMULA DO MATEMÁTICO INGLÉS J. WALLIS 
(SECULO XVI!) 


**0 valor Tr foi expresso como uma série de produtos de números racionais 


T=4 x (2/3) x (4/3) x (4/5) x (6/5) x (6/7) x (8/7) x... 


sempre com um número par de fatores após o 4.” 


Programa Basic: 


05 PRINT “QUAL O NUMERO N(PAR) DE FATORES DESEJADO?” 
10 INPUT X 

20 LET Y = INT (X/2) 

30 LETP=4 

40 LETF=2 

50 FOR |=1 TO Y 

60 LETP =P + (F/(F + 1)) 

70 LETP =P «(F +2)/ (F + 1)) 

80 LETF=F+2 


90 NEXT | 
100 PRINT “VALOR DE Pl PELA FORMULA DE WALLIS”, P 
110 END 
Resultados: 
Para x=2 Para X=4 
Y =1 Y =2 
P=4 P=4 
F=2 F=2 
P =4 x (2/3 x (4/3) | =1:P =4 x (2/3) x (4/3) 


l=2:P =— Px (4/5) x (6/5) 
valor 7 = 3.5555556 valor 7 = 3.4133333333 


11.4 FÓRMULA DO MATEMÁTICO AUSTRÍACO 
STRASSNITZKY 


T=4x(ARC TAN (1/2) + ARC TAN (1/5) + ARC TAN (1/8) 


Resultado: 


100 LET P = 4 H—ATN(0.5) + ATN(0.2) + ATN(0.125)) 
valor T=4x(0.4636476+0.1973956+0.124355) = 3.1415928 


11.5 FÓRMULA DE LEIBNITZ (1674) 


7r=4 41 (1/3) + (1/5) — (1/2) + (1/9) - (1/11)...) 


com o número de termos tendendo para infinito. 


Programa Basic: 


10 PRINT “QUAL O NUMERO DE TERMOS” 

20 INPUT A 

25 LETA1 =2+A-1 

30 LETS=1 

40 FOR | =1 TO A1 SET 2 

50 LET F = (1/1) =S 

60 LET P = P+F 

70 LETS =-S 

80 NEXT | 

90 LETP=4*P 
100 PRINT “VALOR DE Pl PELA FORMULA DE LEIBNITZ”, P 
110 END 
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Resultados: 


Para 
A=1 A=2 


A1 =2x1 -1=1 A1 = 3x2 - 1=5 A1=3x2-1=5 


A=3 


Ss=1 Ss=1 Ss=1 
l=1 l=1 l=2 1=1,3,5 
F=1 F=1 = - (1/3) 


P=1,- (1/3) + (1/5) 
S=-1,1 -1 

P=4 x (1 - (1/3) + (1/5) ) 
: 3466668 
A=100  7=3.1315927 


P=1P=1- (1/3) 


P=1 
S=-1 =-1 s=1 
P=4x (1 - 1/3) 
: 2.6666664 
Tr = 3.12492706; 


P=4x1=4 
Valor 7 :4 
Para: A = 60 


11.6 EXERCICIOS DE APLICACAÁO 


1. Escrever um único programa Basic que incorpore as cinco fórmulas de cálculo 
de T, permitindo a escolha de cada fórmula através de mensagens e de código do 


tipo: 


DESEJA METODO | — FORMULA CHINESA DO ANO 470A.C.? TECLAR 1 
DESEJA METODO | — FORMULA INDIANA DE ARYABHATA DE 510A.C.? 
TECLAR 2 

DESEJA METODO ll — FORMULA DO MATEMATICO INGLES J. WALLIS? 


TECLAR 3 
DESEJA METODO IV — FORMULA DO MATEMATICO AUSTRIACO 


STRASSNITZKY? TECLAR 4 
DESEJA METODO V — FORMULA DE LEIBNITZ? TECLAR 5 


Uma vez optado o código numérico, cada fórmula deve ser fornecida ao 
usuário juntamente com o resultado. 


(sugestáo: usar comando ON x GOTO. . .) 


2. Escrever um programa Basic que forneca a maior precisáo possível do valor 
através de cada uma das cinco fórmulas. Usar precisáo simples e depois, se 
possível, dupla precisáo. Efetue uma análise comparativa dos métodos, quanto 

136 á precisáo e número de operacóes envolvidas. 


Aplicacáo: Emissáo 
de Extrato de Conta 
Corrente 


121 OPROBLEMA 


Um cliente de um banco possui os dados pessoais de sua conta cor- 
rente (nome, número e saldo anterior) e um resumo dos movimentos efetua- 
dos durante um certo més (dez/85). 


Dados Pessoais do Correntista Variável 


Nome do cliente: José Alves Fonseca (N$) 
Número da conta: 78-3451 (C$) 
Saldo anterior: $33457.80 (Ss) 
Movimento do més de: Dez/85 

Resumo 

Data (D$)  Operacáo(P$)  N“ documento (X$) Valor (V) 


01/12/85 débito 3478-1 1000,00 
10/12/85 crédito 350 5500.00 
15/12/85 débito 3479-1 3000,00 
27/12/85 débito 3481-1 15000.00 
29/12/85 crédito 370 34789.50 
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12.2 RESULTADO DESEJADO 


Queremos ler os dados e emitir um Extrato do Movimento do Més, do 
tipo: 


NOME: 

NUMERO DA CONTA 

EXTRATO DO MES DE: 

DATA N9 DOCUMENTO DEBITO CREDITO SALDO 


Xx/xx/xx XXXXXXX-X 
SALDO A TRANSPORTAR 


123 PROGRAMA 


10 READ M$ (leitura do més) 


20 READ N$ (leitura do nome) 
30 READ C$ (leitura do número) 
40 READ S (leitura do saldo) 
50 PRINT 

60 PRINT 


70 PRINT “NOME;”, N$ 
80 PRINT “NUMERO DA CONTA-””, C$ 
90 PRINT “EXTRATO DO MES DE: ”; M$ 


M0 PRINTS ” 

110 PRINT “DATA  N% DOCUMENTO DEBITO CREDITO SALDO” 
MR AAA A ” 
130 PRINT ” SALDO ANTERIOR S”, S 
140 READ D$,P$, X$, V (leitura de um movimento) 

150 IF D$ = “999999” THEN 270 (fim do movimento) 


138 160 IF P$ = “DEBITO” THEN 200 


170 1F P$ = “CREDITO” THEN 230 

180 PRINT “ERRO DE DEBITO/CREDITO” 
190 GO TO 140 

200 LETS=S-V 

210 PRINT D$, “PB”; X$; TAB (5); V, ,S 
220 GO TO 140 

2390 LETS=S+4+V 

240 PRINT D$,“B”; X$, TAB (15); V, S 


250 GO TO 140 

260 REM FIM DO MOVIMENTO 

270 PRINT” SALDO A TRANSPORTAR$”, S 
280:PRINT*" 222 e es 

300 REM DADOS DO CLIENTE 

310 DATA “DEZ/85” (més) 

320 DATA “JOSE ALVES FONSECA” (nome do cliente) 
330 DATA “'78-3451” (número da conta) 
340 DATA 33457.80 (saldo anterior) 


350 REM MOVIMENTO DO MES 

360 DATA “01/12/85”, “DEBITO”, “*3478-1”, 1000.00 
370 DATA “10/12/85”, “CREDITO”, 350", 5500.00 
380 DATA “15/12/85”, “DEBITO”, **3479-1"”, 3000.00 
390 DATA 27/12/85", “DEBITO”, *“3481-1"”, 15000.00 
400 DATA “29/12/85”, “CREDITO”, “370”, 34789.50 


410 DATA “999999”, “9999”, “9999”, 99999 (fim do movimento) 


500 END 


Nota: Para outras movimentacdes da conta, usar mais comandos DATA. 
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124 RESULTADO 


RUN 
NOME: JOSE ALVES FONSECA 
NUMERO DA CONTA: 78-3451 
EXTRATO DO MES DE: DEZ/85 


nm mn 


SALDO ANTERIOR $ 33457.80 
1000.00 32457.80 

5500.00 37957.80 
34957.80 


01/12/85 
10/12/85 350 

15/12/85 3000.00 
27/12/85 3481-1 15900.00 19957.80 
29/12/85 34789.50 54747.30 


SALDO A TRANSPORTAR $ 54747.30 


12.5 EXERCICIOS DE APLICACÁO 


1. Na aplicacáo estudada, acertar a coluna dos valores, colocar CR$, ponto para 
cada mil cruzeiros e vírgula decimal, usando o comando PRINT USING. 


2. Na prática é necessário processar a conta corrente de um número elevado de 
clientes. 

Os dados pessoais de cada cliente formam um conjunto denominado: 
ARQUIVO-MESTRE DE CLIENTE, contendo nome, número da conta e 
saldo de todos os N clientes da agéncia bancária. O movimento men- 
sal forma um outro arquivo denominado: 

ARQUIVO DE MOVIMENTO MENSAL, que contém, para cada cliente 
que movimentou a conta, nesse més, os seguintes dados: 
— número da conta X 
— resumo do movimento dessa conta X : 
01/12/85 DEBITO, N%9 DOCUMENTO, VALOR 


03/12/85... 
140 9999999 (indicadora de fim de movimento) 


Lembrar que nem todos os clientes do ARQUIVO-MESTRE movimenta- 
ram a sua conta. 

É necessário formar esses dois arquivos em disquete ou fita cassete, pois 
náo é possível colocar todos os dados dos N clientes nos comandos DATA. 
Questóes: 

— Escreva um programa Basic para emissáo de extrato de 10 clientes, 

utilizando somente os comandos DATA. 

— Transformar o programa para ler os dados de dois arquivos que estáo 

em disquetes. 
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Programas de Simulacáo 51 Es 


e Jogos de Azar 


13.1 JOGO DE PAR OU IMPAR OU CARA-COROA — 
COMANDO-FUNCGAO :RIND(X) 


Cada um dos dois eventos (CARA ou COROA) tem mesma chance de 
ocorrer. Usamos a funcáo Y = RND(X) que gera automaticamente um valor ao 
acaso, compreendido entre os valores 0 e 1. 


Se Y for menor que o valor 0,5, dizemos que “ocorreu CARA”, pois repre- 
senta 50% das chances possíveis de Y; caso contrário (Y maior ou iguat a 0,5), 
dizemos que “ocorreu COROA” X. 


NEW 


10 LET X =0.75 (valor inicial para o gerador RND(X)) 


20 LET Y = RND(X) (gera um valor ao acaso entre O e 1) 
30 IF Y< 0.5 THEN 60 

40 PRINT “OCORREU COROA” 

50 GO TO 80 

60 PRINT “OCORREU CARA” 

80 END 


13.2 SIMULACÁO DO DADO DE SEIS FACES 


Neste caso, temos seis eventos (face 1, 2, 3, 4, 5e 6) com as mesmas chances 
de ocorréncia. Entáo dividimos o intervalo entre O e 1 em 6 partes iguais corres- 
pondendo, cada subintervalo, á chance de ocorrencia de uma face. 


NEW 
10 LET X =0.75 
20 LET Y = RND(X) 
30 IF Y< 1/6 THEN 110 
40 IF Y< 2/6 THEN 120 
50 IF Y< 3/6 THEN 130 Ou, um programa mais económico seria: 
60 IF Y< 4/6 THEN 140 
70 1F Y< 5/6 THEN 150 NEW 
80 PRINT “SAIU FACE 6”* 10 LET X = 0.75 
90 GO TO 250 20 LET Y = RND(X) 
110 PRINT “SAIlU FACE 1” 30 FOR|1=1T06 
115 GO TO 250 40 IF Y< 1/6 THEN 70 
120 PRINT “SAIlU FACE 2” 50 NEXT 1 
125 GO TO 250 60 STOP 
130 PRINT “SAIJU FACE 3” 70 PRINT “SAIU FACE”, | 
135 GO TO 250 80 END 
140 PRINT “SAIU FACE 4” 
145 GO TO 250 
150 PRINT “SAIU FACE 5” 
250 END 
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133  FORNECIMENTO DE VALORES RANDÓMICOS 
EQUIPROVÁVEIS PELA FUNCAO RND(X) 


A tuncáo RND(X) fornece uma seqúéncia de valores aleatórios ou randómi- 
cos equiprováveis (valores ao acaso) entre zero e um, que podem ser utilizados em 
problemas de simulacáo e jogos. Para fornecer, por exemplo, 10 valores equipro- 
váveis usamos o programa abaixo. 


Programa Basic: 


10 LET X =0.35 

20 FOR | =1 TO 10 

30 LET Y = ANDI(X) 

40 PRINT “VALOR ALEATORIO”, 1, Y 
50 NEXT | 

60 END 


Resultado: 


RUN 
VALOR ALEATORIO 0.857316 


VALOR ALEATORIO 0.173578 


VALOR ALEATORIO 0.975013 


Nota: Alterando o cornando 10 LET X =0.35, podemos fornecer valor “de partida ou 
semente” diferente e ter segúéncia diferente de números randómicos. No co- 
mando 30 LET Y — RND(X) em geral náo é necessário “renovar” o valor X pelo 
novo valor gerado Y. Entretanto, em algumas versOes essa renovacáo náo é auto- 
mática e devemos usar: 


30 LET Y =RND(X) 
35 LET X =Y 


13.4 REPETICAO DOSJOGOS DA MOEDA OU DADOS 


Nos exercfcios anteriores só podemos jogar um único lance. Para termos 
lances diferentes devemos mudar o valor inicial (semente) do comando 10 LET 
X =0.75. 


Se quisermos jogar lances repetidos podemos usar as seguintes alternativas: 


a) Para cinco lances consecutivos: 


10 LET X =0.75 (ou valor qualquer entre O e 1) 
15 FOR|1=1TO5 
20 LET Y = RND(X) 
30... (jogo da moeda ou dado) 
250 NEXT | 
260 END 


b) Para decidir se continuamos jogando ou náo: 


10 LET X =0.75 
20 LET Y = RND(X) 


30... (jogo da moeda ou dado) 


250 PRINT “QUER CONTINUAR? ESCREVA SIM OU NAO” 
260 INPUT S$ 

270 IF S$ = “SIM” THEN 20 

280 END 


Observacáo: Para o mesmo valor inicial (somente) X teremos a mesma sequéncia 
de valores RND(X) gerados ao acaso. Alterando X teremos seqúén- 
cias diferentes. 


13.5  SIMULACAO DE UM DADO VICIADO 


A maior vantagem da simulacáo é que, podemos alterar, á vontade o pro- 
grama e introduzir modificacóes ou vícios difíceis de se conseguir no caso real. 
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Por exemplo, queremos que o dado simulado seja VICIADO de modo que os 
valores pares tenham duas vezes mais chances de sair do que os Ímpares. 


Entáo temos: Face 1: Peso 1 ou Chance 1/9 (no total de 100%) 
Face 2: Peso 2 ou Chance 2/9 
Face 3: Peso 1 ou Chance 1/9 
Face 4: Peso 2 ou Chance 2/9 
Face 5: Peso 1 ou Chance 1/9 
Face 6: Peso 2 ou Chance 2/9 


Total 9 1 0u 100% 


Basta introduzir no programa anterior, intervalos com essas proporcóes, isto 
€, Y gerado será comparado com os valores 1/9, 3/9, 4/9, 6/9, 7/9 em vez de 1/6, 
2/6, 3/6, 4/6, 5/6. 


13.6 SIMULACAO DE UMA BATALHA INTERPLANETARIA 


Descricáo do Problema: 


TELA DO RADAR 


A tela do RADAR da Base de Defesa Terrestre está dividida em quatro 
quadrados numerados 1, 2,3 e 4. 


TELA DO RADAR DA BASE TERRESTRE 


“UFO” INVASOR 


Uma espaconave invasora (UFO invasor) pode surgir em qualquer qua- 
drado da tela, e seus mísseis: 


— tém 100% de chance de DESTRUIR A BASE (ao menos que 
seja ABATIDA) se o UFO estiver no quadrado 3 ou 4 e 


— tém 50% de chance de DESTRUIR A BASE, se o UFO estiver 
no quadrado 1 ou 2 (outros 50% de chance é de que o UFO 
passou sem atingir a BASE). 


DEFESA DA BASE 
A Base está equipada com: 


— Trés mísseis do tipo A cuja chance de acerto é de 70%e 
— Dois mísseis do tipo B cuja chance de acerto é de 90 % 
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DECISÁO A SER TOMADA 


A cada UFO invasor que aparecer na tela, deve-se tomar uma das 
seguintes decis0es: (até que a BASE ou o UFO seja destruído) 


— Disparar um Míssil do tipo A (teclar valor 1) 
— Disparar um Míssil do tipo B (teclar valor 2) 
— Somente observar se o UFO desaparece (teclar valor 0). 


Observacáo: Na tela de TV do computador usado, poder-se-iatracar grafi- 
camente a trajetória reta (com certo ángulo de inclinacáo 
gerado ao acaso) ou curva dos mísseis langados. A destruicáo 


do UFO invasor ocorrerá se a trajetória passar pelo ponto de 
coordenada do UFO. (Fig. 13.1) 


A A 


INVASOR 
DESTRUIDO!!! 


LANCAR MISSILI!! 
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Invasor 
U = RAND (X) 


Zerar Índice 
de destruic8o 
c=0 


Quadro 1 ou 2 


PRINT “UFO 
INVASOR 
Emi Q-1, 02" 


PRINT QUAL 
SERÁ DEFE- 
Sa?” 


Dispara Míssil A 


Gera chance 


de acerto do 
Míssil A (1) 
A = RND (X) 


D=0 Nada faz 


PRINT"” 
PRINT 
PRINT" 
PRINT" 
PRINT 
PRINT” 


Verifica em que Quadrado apareceu UFO 


Náo, UFO está no quadro 3 ou 4 
PRINT “UFO 
INVASOR 
EM 03 ou 04” 


Atingirá Base caso 
náo for destruído 


Mensagem do computedor 


Dispara Míssil B 


Gera chance 
de acerto do 
Miíssil B 
B = RAND (X) 


Verifica se 


UFO vai atingir 


o BASE 


PRINT 
“BASE DES- 


PRINT“UFO] TRUIDA!” 


PRINT “UFO 
INVASOR 


DESTRUÍDC PASSOU SEM 


ATINGIR 
BASE'"* 


Continua 
eml 


Registra 
contagem de 
UFO destruído 

Míssil A usado 


PRINT “UFO 
INVASOR 
DESTRUIDO!" 


Registra 


Continua 
em)! 


Programa Basic: 


0005 REM TRACAR TELA DO RADAR 


0010 PRINT “221222 ds 
0020 PRINT ” 1 ' > 
0030: PRINT* >< oitio r 
0040 PRINT “* 3 ' e 
0050 PRINT “22 


0053 LET A1 = 3 

0054 LET B1 =2 

0055 LET X =.754 

0060 LET U = RN D(X) 

0061 PRINT “U”, U 

0080 LETC =0 

0085 REM VERIFICA EM QUE QUADRO APARECEU UFO 
0090 IF U< .5 THEN 120 

0094 PRINT “UFO INVASOR EM QUADRO 1 — 2” 
0095 LET A = RND(X) 

0097 PRINT “A”, A (opcional) 

0098 IF A< 0.5 THEN 150 

0100 GOTO 160 

0120 PRINT “UFO INVASOR EM QUADRO 3 — 4” 
0150 LETC=1 

0160 PRINT “QUAL SERA DEFESA?” 

0162 PRINT “NADA FAZ = TECLAR ZERO” 
0163 PRINT “DISPARA MISSIL A = TECLAR 1” 
0164 PRINT “DISPARAR MISSIL B = TECLAR 2” 
0165 INPUT D 
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0170 IF D=0O THEN 200 

0175 IF D>= 2 THEN 300 

0180 LET A1 =A1 — 1 

0181 LET A = RND(X) 

0182 PRINT “A”, A (opcional) 
0184 IF A >.7 THEN 200 

0185 PRINT “UFO INVASOR DESTRUIDO!!” 
0190 PRINT “RESTAM”, A1, B1;” MISSEIS A E B” 
0195 GOTO 60 

0199 REM NADA FAZ OU MISSIL NAO ATINGE UFO INVASOR 
0200 IF C=1 THEN 230 

0210 PRINT “UFO PASSOU SEM ATINGIR BASE” 
0212 PRINT “RESTAM ”; A1, B1; “MISSEIS A EB” 
0215 GOTO 60 

0230 PRINT “BASE DESTRUIDA! ! !” 

0241 GOTO 500 

0299 REM MISSIL B 

0300 LET B = RND(X) 

0301 PRINT “B”, B (opcional) 
0305 LET B1 =B1-—1 

0320 IF 8 >.9 THEN 200 

0325 GOTO 185 

0500 END 
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Resultados. 


0.36489123 (valor aleatório 
UFO INVASOR EM QUADRO 3-4 de verificacio) 
QUAL SERA DEFESA? 
NADA FAZ =TECLAR ZERO 
DISPARA MISSIL A = TECLAR 1 
DISPARAR MISSIL B = TECLAR 2 
2 2 
B 
UFO INVASOR DESTRUIDO! ! 


(decisáo tomada) 


0.07006553 


RESTAM 2 1 MISSEISA EB 
U 0.8572666 
UFO INVASOR EM QUADRO 1-2 
A 0.10350774 
QUAL SERA DEFESA? 
NADA FAZ = TECLAR ZERO 
DISPARA MISSIL A = TECLAR 1 
DISPARAR MISSIL B = TECLAR 2 
2 1 
A 
UFO INVASOR DESTRUIDO! ! 


(decisáo tomada) 


0.68622667 
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RESTAM 1 1 MISSEISAEB 


U 0.7144645 
UFO INVASOR EM QUADRO 1-2 
A 0.93888811 


QUAL SERA DEFESA? 

NADA FAZ = TECLAR ZERO 
DISPARA MISSIL A = TECLAR 1 
DISPARAR MISSIL B = TECLAR 2 


21 
A 0.89887604 


UFO PASSOU SEM ATINGIR BASE 


U 0.57/187251 
UFO INVASOR EM QUADRO 1-2 

A 0.76402883 
QUAL SERA DEFESA? 


NADA FAZ = TECLAR ZERO 

DISPARA MISSIL A = TECLAR 1 
DISPARAR MISSIL B = TECLAR 2 

2 1 

A 0.33286963 
UFO INVASOR DESTRUIDO! ! 


RESTAM — 0 1 MISSEIS A EB 
U 0.74896865 

UFO INVASOR EM QUADRO 1-2 

A 0.21277704 
QUAL SERA DEFESA? 


NADA FAZ = TECLAR ZERO 
DISPARA MISSIL A = TECLAR 1 
DISPARAR MISSIL B = TECLAR 2 


(decisáo tomada) 


(decisáo tomada) 


?22 (decisáo tomada) 
B 0.74643813 
UFO INVASOR DESTRUIDO! ! 


RESTAM — 0 O. MISSEIS A E B 
0.22900508 

UFO INVASOR EM QUADRO 3-4 

QUAL SERA DEFESA? 

NADA FAZ = TECLAR ZERO 

DISPARA MISSIL A = TECLAR 1 

DISPARAR MISSIL B = TECLAR 2 


20 (decisáo tomada) 


BASE DESTRUIDA! ! ! 


13.7 EXERCICIOS DE APLICACAO 


1. 


Escrever um programa Basic para simular o lancamento de uma moeda dez 
vezes repetidas. Contar o número de “caras” ocorridas. 


. Escrever um programa Basic para simular o langamento simultáneo de dois 


dados. 
Repetir a simulacáo por dez vezes e calcular: 
— O número de faces pares 


— 0 número de faces com valor menor ou igual a 3 
— a média da soma dos valores dos dois dados. 


. Simular, em Basic, o jogo do Black-Jack ou Sete e meio. 


. Escrever um programa que simule o jogo Tic-Tac-Toc ou jogo-da-velha. O com- 


putador escolhe qualquer posicáo vaga ao acaso. 


. Modificar o problema de SIMULACÁO DA BATALHA INTERPLANETÁRIA 


para JOGO DE COBRANCA DE PENALIDADES MÁXIMAS EM FUTEBOL, 
substituindo os mísseis A e B por CHUTE DE PÉ DIREITO e CHUTE DE 
PÉ ESQUERDO, respectivamente, e os Quadrados 1, 2, 3 e 4 da tela do Radar 
por DIRECOES 1, 2, 3 e 4 dos“chutes nos quatro quadrados em que está divi- 
dido o GOL. Os chutes podem ir para o gol ou para fora com as mesmas chan- 
ces dadas para Acerto ou Erro do Míssil. Nas Diregóes 1 e 2 o Goleiro tem 50 % 
de chance de defender a penalidade. Escrever o Fluxograma e o programa 
BASIC que efetue a cobranca de trés penalidades máximas e registre no placar. 153 
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Aplicacáo: 
Computer-Assisted-Learning 
(CAL): o Ensino Através 

do Computador 


14.1 OENSINO ATRAVÉS DE MICROCOMPUTADOR E BASIC 


O computador tem-se mostrado um instrumento útil e eficiente no ensino, 


tanto no currículo oficial como no treinamento profissional nas empresas. (Fig. 
14.1) 


Algumas das vantagens proporcionadas pelo ensino através do computador 


sao: 


— participacáo ativa e repetitiva do aluno nas ligóes fornecidas pelo 
computador, com treinamento programado e progressivo; 


— possibilidade de preparar textos e exercícios de qualquer tipo e finali- 
dade; 


— baixo custo proporcionado pelos microcomputadores e pela linguagem 
Basic. 


Alguns campos de aplicacáo do CAL (ensino através do computador) sáo: 
— laboratório de treinamento de línguas, ciéncias e matemática; 


— treinamento profissional para um novo cargo, operacáo de novo equi- 
pamento etc.; 


— treinamento de excepcionais e pessoas com dificuldades físicas ou 
mentais. 


14.2 PROGRAMA EDUCACIONAL PARA CRIANCAS: 
EXERCICIOS DE ADICAO 


Programa para ensinar operacáo de adigáo de um algarismo. 


=——_—_—_—__—__ A A A A 
0001 PRINT “ENSINO POR COMPUTADOR — EXERCICIO DE SOMA 
PARA CRIANCAS” 
0005 LET K =0.781 
0010 PRINT 
0011 LET Z = RND(K) 
0020 LET X = INT (10 +Z +1) 
0021 LET Z = RND(X) 
0030 LET Y =INT (10 *Z+1) 
0040 PRINT X; +", Y, “=" 
0050 INPUT R 
0070 IF R = X + Y THEN 100 
0080 PRINT “NAO, “,X +" ¡Y," ="_X + Y 
0090 GOTO 10 
0100 PRINT “CORRETO! TENTE MAIS ESTA” 
0110 GOTO 10 
0120 END 


++ RUN 


ENSINO POR COMPUTADOR -— EXERCICIO DE SOMA PARA 
CRIANCAS 

6+7= 

713 

CORRETO! TENTE MAIS ESTA 

4 +10 = 

215 

NAO, 4 + 10 = 14 

10 +8= 

218 

CORRETO! TENTE MAIS ESTA 

3+5= 

28 

CORRETO! TENTE MAIS ESTA 

4+6= 

211 

NAO, 4+6=10 

6+2= 

? 


Nota: Adaptado de: Mathematics Teaching — Travers; K, e outros. Harpar € Row — 
1977 — USA. 
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14.3 PROGRAMA EDUCACIONAL PARA CRIANCGAS: 
EXERCICIOS DE MULTIPLICACAO DE DOIS 
NÚMEROS DE UM ALGARISMO CADA UM 


10 PRINT 

15 LET K =0.791 

20 LET X = INT (10 * RND(K) +) 

30 LET Y = INT (10 *RND(K) + 1) 

40 PRINT X, “X” ¡Y;“=" 

50 PRINT R 

60 IF R = X + Y THEN 90 

70 PRINT “NAO” ¿X¿“X”" ¡Y¡“=" ¡X * Y 

80 GO TO 20 

90 PRINT “CORRETO! TENTE MAIS ESTA” 
100 GOTO 20 
110 END 


RUN 
6 3=7?18 
CORRETO! TENTE MAIS ESTA 


7 9=2?64 
NAO,7 9=63 
8 2=? 
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A AREA DO TRIANGULO 
DE BASE “B” E ALTURA “A” El? 


1 AxB 
2) (A + B)/2 


3) (A x B)/2 


4) NENHUMA DAS 
ANTERIORES 


Figura 14.1. Programa BASIC para o ensino CAI 
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14.4 PROGRAMA EDUCACIONAL : EXERCICIO DE 
FATORACAO 


Fórmula: (A? -B?) = (A +B) (A - B) 


10 PRINT “FATORACAO DA DIFERENCA DE DOIS QUADRADOS” 
20 PRINT"(A?2-B12)=(A +B) (A - B)” 
30 PRINT 
40 PRINT “EXEMPLO: (A 1 2 - 36) = (A + 6) (A — 6)” 
45 LET K =0.378 
50 PRINT 
60 LET A =INT (11 *RNDI(K) + 1) 
70OLETC=A *A 
80 PRINT “A 1 2 -” ;C; “=(A + B) (A — B)”* 
90 PRINT “QUANTO VALE B” 
100 INPUT B 
110 IF A=B THEN 150 
120 PRINT “NAO, PARA O SEU VALOR B,B1?2=";B* B 
130 PRINT “TENTE NOVAMENTE.” 
140 GOTO 80 
150 PRINT “CORRETO! (A 1 2 -” ;C;”) = (A+ “;¡B/”) (A — “¡B;”)" 
160 GO TO 50 
170 END 


Observacáo: Verifique no manual do seu microcomputador o uso correto de RNDI(K). 
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RUN 
FATORACAO DA DIFERENCA DE DOIS QUADRADOS 
(A12-B12)=(A+B) (A -B) 
EXEMPLO: (A 1 2 - 36) = (A - 6) (A + 6) 
A1t2-16=(A +B) (A - B) 
QUANTO VALE B?4 
CORRETO! (A 1 2 - 16) = (A + 4) (A - 4) 
At 2-49=(A +B) (A - B) 
QUANTO VALE B?8 
NAO, PARA O SEU VALOR B, B 1 2 = 64 
TENTE NOVAMENTE 
A 12-49 =(A +B) (A -B) 
QUANTO VALE B? 


14.5 EXERCICIOS DE APLICACÁO 


1. Escreva os programas educacionais para criangas para exercícios de subtracáo e 
divisáo. Testar a eficiencia didática, submetendo-os ao uso de várias criancas. 


2. Os programas educacionais para exercícios de adicáo e multiplicacáo fornecem 
parcelas ou fatores de 1 a 9. Modifique os programas para fornecer valores 
entre 1 e 100. 


(Sugestáo: gerador de valores passa a ser: X= INT (100 * RND(K) + 1)) 
3. Discutir a implicacáo didática ocorrida nos programas educacionais devido á 
modificacáo introduzida pelo exercício anterior. 


Ficou difícil demais para uma crianca? 
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Introduzir melhoramentos didáticos no programa, por exemplo: 


DISPOSICÁO VERTICAL OU | DESDOBRAR EM DUAS OPERACÓES 


DAS OPERACOES: DE UM ALGARISMO CADA: 
34 4+7=?11 
+ 87 
CORRETO! RESULTADO IGUAL A 1 
? 121 COM VAI UM 


3 +8 + (VAI UM) = 12 
CORRETO! RESULTADO IGUAL A 121 


4. Escrever e testar programas educacionais para exercícios de: 


- (A+B)12=A12+2A4.B+B12 


— Dado um ángulo T, fornecer o seu complementar e suplementar. 
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Algoritmo de 
Aproximacóes 
Sucessivas: Raiz 
Quadrada, Raiz Cúbica 
e Raiz de Equacóes 


15.1 RAIZ OQUADRADA DE UM NÚMERO: ALGORITMO DE 
APROXIMAGAO SUCESSIVAS 


Um algoritmo simples, para obter a raiz quadrada de um número qualquer, 
através de fórmulas de aproximagáo sucessiva do tipo iterativo, é dado pelo seguin- 
te programa: 


Programa Basic: 


05 PRINT “RAIZQUADRADA DO VALOR NPOR APROXIMACOES 
SUCESSIVAS” 

06 PRINT “FORNECER VALOR N” 

10 INPUT N 

20 LETK=2 

30 LET Q = N/K 

35 PRINT “VALOR APROXIMADO DA RAIZ”, Q 

40 IF ABS (K - Q)< 0.0001 THEN 70 

50 LET k = (K + 0)/2 

60 GO TO 30 

70 PRINT “RAIZ QUADRADA DE” ,N, “IGUAL A”, Q 
80 END 
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Resultado: (Teste de verificacáo ) 


Para: N =9 
K=2 
Q =9/2 =4.5 
12 — 4.5/ = 2.5 


K = (2 + 4,.5)/2 = 3.25 

VALOR APROXIMADO DA RAIZ: 4.5 
VALOR APROXIMADO DA RAIZ: 2.76923 
VALOR APROXIMADO DA RAIZ: 2.9904157 
VALOR APROXIMADO DA RAIZ: 2.999846 
RAIZ QUADRADA DE 9 IGUAL A 2.9999 


Para: N=2 
VALOR APROXIMADO DA RAIZ: 1 
1.33334 
1.4117614 
1.4142114 


RAIZ QUADRADA DE 2 IGUAL A 1.4142114 


Observacáo: Maior precisáo do resultado é possível alterando-se o comando: 


40 IF ABS (K - 0) < 0.0001 THEN 70 


15.2. RAIZES DE EQUACOES 


Em problemas de engenharia e ciéncia é freqúente a determinacáo das ral. 
zes de alguma equacáo. Raízes ou zeros de uma equacáo sáo os valores de x tais 
que f(x) = 0. 


As equacóes podem ser polinominais e transcendentais: 
x2+3x+2=0 
5x9 +2x=0 


x — sen?x=0 
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Existem algumas regras que ajudam o processo de achar o intervalo onde 
estáo as ra/zes de equacdes polinominais, o que é mais dif/cil para equacóes trans- 
cendentais do tipo x - sen*x = 0, 


15.3 MÉTODOS PARA A OBTENCAO DE UMA RAIZ 


Uma vez determinado um intervalo (a, b) onde se sabe que existe uma raiz, 
aplica-se um dos métodos de determinacáo da raiz. 


15.3.1 Método de Newton-Raphson 


É o método utilizado devido a sua rápida convergéncia. 


Dado um ponto x, pertencente ao intervalo (a,b) onde existe uma raiz da 
equacáo f(x) = 0, a raiz será obtida pela fórmula ¡terativa: 


Xxn+1= *n- (f (xm)/F' (xm)) 


onde f' (xp) é a derivada de f(x) no ponto xp. 


O método náo converge se f' (x,) = O. O processo iterativo termina se a 
diferencalxn + 1 - Xn|for suficientemente pequena. 


Exemplos: 


1. Achar a raiz da funcáo: 


fx) =x? - 23x? +62x -40=0 


A derivada é:f' (x) = 3x? - 46x + 62 


Partindo de x, = 21 temos sucessivamente: 


x f(x) bo FxdIFx) x—f(x)/f'(x) 
21,0 180 419 0,91 20,1 
20,1 32,2 349 0,09 20,0 
20,0 0 


Portanto, uma das raízes é x,= 20. 163 
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2. Achar uma raiz de: 


tod =x? -senx=0 


A derivada é:f' (x) = 2x - cos Xx. 


x f(x) f(x) MITOS) 

1,0 0,159 1,460 0,109 
0,891 0,017 1,154 0,014 
0,877 0,0 


15.4 RAIZ QUADRADA E RAIZ CÚBICA PELO MÉTODO 
DE NEWTON-RAPHSON 


O método de Newton-Raphson também serve para achar a raiz k-ésima 
de um valor C dado através da relacáo xKk=Coux=YVY C. 


Por exemplo, para calcular a raiz quadrada do valor dois, temos: 


C=2,k=2ex? =2. Entáo f(x) =x? -2 e f(x) = 2x. 


Partindo de x, = 1 temos: 


x fo) =x? -2 fx) =2x F00/F bd 

1 -1 2 -1/2 

1.5 0.25 3 0.0833 
1.4167 en 


Para calcular a raiz cúbica de um valor C dado, usamos a funcáo: 
tbo0=x? -C 


15.5 PROGRAMA BASIC PARA ENCONTRAR RAIZES DE UM 
POLINÓMIO ATÉ 59 GRAU 


Vamos fazer um programa que ache as raízes da equacáo dada abaixo: 


Fa) =x* -9x? -2x? + 120x - 130 


10 
Le] 
pa 


wnou3 0340nb ap onuguijod un ap Saz10Y *['S 1 em8ly 


191 e1nB14 eu aoauede anb 0913216 Op soaeJe sSOPeuru1aJ9p 18s ulapod sezjeJ oJjenb se WWezi]eoo| es apuo sojeaJajul sy 


Programa Basic: 


0100 PRINT “RAIZES DA EQUACAO” 

0200 PRINT “ATE QUINTO GRAU” 

0300 PRINT “QUAL E A PRECISAO DESEJADA E QUANTAS 
I¡TERACOES” 

0400 INPUT P, J 

0450 1=0 

0500 PRINT “ENTRE COM OS COEFICIENTES A, B, C, D, E, F” 
0600 INPUT A,B,C,D,E, F 

0700 PRINT “DE—ME UM PONTO DE PARTIDA” 

0800 GOTO 1000 

0900 PRINT “DE—ME OUTRO PONTO DE PARTIDA” 
1000 INPUT X 

1050 |=0 

1100 X5=X15 

1200 X4=X14 

1300 X3=X13 

1400 X2 = X*X 

1500 1 =1+1 

1600 G=A* X5+B*X4+C*X3+D*X2+E*X+F 
1700 G1 = ABS(G) 

1800 IF 1 >J THEN GO TO 900 

1900 IF G1< P THEN GO TO 2300 

2000 D1 =5*A*X4+4*B*X3+3*C*X2+2*D*X+E 
2100 LET X = X - G/D1 

2200 GOTO 1100 

2300 PRINT “X =", X 

2400 PRINT “ESCREVA 1 SE QUISER OUTRA RAIZ OU 0 SE NAO” 
2500 INPUT R 

2600 IF R = 1 THEN GO TO 900 

2700 IFR =0 THEN GO TO 2900 

2800 PRINT “1 0U0?” 

2900 END 

READY 
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++ RUN 
RAIZES DA EQUACAO 
ATE QUINTO GRAU 
QUAL E A PRECISAO DESEJADA E QUANTAS ITERACOES 
? 0.0001, 10 
ENTRE COM OS COEFICIENTES A, B, C, D, E, F 
?0, 1, -9, -2, 120, - 130 
DE—ME UM PONTO DE PARTIDA 


21 


x= 1.22858939 (12 raiz) 
ESCREVA 1 SE QUISER OUTRA RAIZ OU O SE NAO 
21 
DE-—ME OUTRO PONTO DE PARTIDA 
23 
x= 3.97206884 (22 raiz) 
ESCREVA 1 SE QUISER OUTRA RAIZ OU 0 SE NAO 
21 
DE—ME OUTRO PONTO DE PARTIDA 
26 
X= -3.60013528 (38 raiz) 
ESCREVA 1 SE QUISER OUTRA RAIZ OU 0 SE NAO 
21 


DE—ME OUTRO PONTO DE PARTIDA 
27 


x= 7.39947745 (42 raiz) 
ESCREVA 1 SE QUISER OUTRA RAIZ OU 0 SE NAO 
20 
STOP 2900 
READY 
167 
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15.6. EXERCICIOS DE APLICACÁAO 


1. Escrever e testar um programa Basic para o exemplo 1 da segáo 15.3.1, usado no 
método de Newton-Raphson. 


2. idem, exemplo 2. 


3. Idem, para obter a raiz quadrada de um valor C dado, pelo método de Newton- 
-Raphson. 


4. Idem, para obter a raiz cúbica de um valor C dado, pejo método de Newton- 
-Raphson. 


Gráficos por 
Computador 
Usando Basic 


16.1 GRÁFICO DE UMA FIGURA TRAGADA PONTO A PONTO 


O primeiro passo para tragar um gráfico consiste em colocar a figura 
em um papel quadriculado ou milimetrado e tragar caractere por caractere o 
perfil da figura, usando sucessáo de comandos PRINT “.............” 


No exemplo seguinte temos a imagem de um CAVALO MARINHO. 


Programa 
10 REM GRAFICO POR TABULACAO DIRETA 
20 PRINT 
30 PRINT TAB (10)." .. 
40 PRINTTAB (10)," E". 
50 PRINT TAB (10);” EEE 


60 PRINT TAB (10);” 

80 PRINT TAB (10);” 
120 PRINT TAB (10);" 
125 PRINT TAB (10);” 
120 PRINT TAB (10);” 
140 PRINT TAB (10);” 
160 PRINT TAB (10):" 
180 PRINT TAB (10);" 
200 PRINT TAS (10);” 
220 PRINT TAB (10);” 
240 PRINT TAB (10);” 
250 PAINT TAS (10);" 
260 PRINT TAB (10); 
280 PAINT TAB (10);" 
290 PRINT TAB (10);” 
200 PRINT TAB (10);* 
320 PRINT TAB (10);” 
340 PRINT TAB (10);" 
360 PRINT TAB (10);” 
360 PRINT TAB (10);” 
380 PRINT TAB (10);” 
420 PRINT TAB (10);” 
440 PAINT TAB (10);” 
460 PRINT TAB (10);” 
470 PRINT TAB (10);” 
480PRINT TAB (10);" 
490 PAINT TAB (10);" 
500 PRINT TAB (10);” 
510 PRINT TAS (10);* 
600 END 


HAÁERA RARA 
ORAR RR MR 
ARMAR AR RRRR 

RARAKA AAA RARA RARA 
KARAKAAARARAA RARA CARRERA RARO 
RAÁRACARA AA RARA RARA 
ERRRARAR RRA 
RORRRRARRRRRRR RRA 
BORRA RO RR RH 
ee Bee e RR RR MR RA 
EARAKERARARARAREARARARR A 
AÁRARARAAARA RRA RRA 
RRRAARANRA RR RRA 
PORRO NOR RR RIOR RR RR 
RRA RARA RAIN RRA 
MR e RR e e 
HACRAARA RA RARA RAR 
HR RIOR RR RRA 
Ae RRA Ade de 
a 
HRARR AA 
RN 
qe 
RRA 
HN 
HARRARA RARA RARO 
Ae eE RARA 
*qxn 
e. 
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16.2 CODIFICACAO DA FIGURA EM CÓDIGOS NUMÉRICOS 


Uma vez efetuado o levantamento ponto a ponto em papel quadricu- 
lado, a figura pode ser substituída por uma representacáo ou codificacáo 


numérica das posigóes dos pontos ou caracteres. Assim eliminamos a suces- 
sáo de comandos PRINT. 


No exemplo seguinte, cada linha da figura da secáo 16.1 foi substituida 
por dois valores numéricos: 


po. 


P: posicáo até o primeiro caractere e 
N: quantidade de caracteres ” *” que compóe a linha. 
Os comandos DATA contém a sucessáo de valores P e N dos comandos 
PRINT. 
Sendo assim: 
P=23eN=1, representam 23 posicóes em branco e 1 caractere * * ”; 


se Mo 


P=22eN=2, representam 22 posicóes em branco e 2 caracteres 
O resultado obtido é o mesmo da secáo 16.1. 


16.2.1 Exercício 


30 REM P = POSICAO ATE PRIMEIRO SINAL 

40 REM N = NUMERO DE SINAIS 

50 READ P, N 

60 IFP = O THEN IF N = O THEN 600 

70 PRINT TAB (P); 

80 FOR J=1TO N 

90 PRINT “ +”; 
100 NEXT J 
110 PRINT “6” 
120 GOTO 50 
400 DATA 23, 1, 22, 2, 21, 8, 19, 11, 17, 15, 13, 22, 14, 28, 13, 28 
410 DATA 11, 26, 13, 16, 11, 19, 13, 19, 12, 19, 14, 21, 13, 19, 15, 18 
440 DATA 16, 20, 16, 18, 17, 18, 16, 19, 16, 16, 16, 14, 15, 9, 15,7 
460 DATA 14, 7, 14, 6, 15, 6, 16, 6, 17, 19, 18, 13, 30,2, 32,1,0,0,0 
600 END 


170 nota: “b”: espaco em branco. 


Respostas dos programas dos ¡tens 16.1 e 16.2 


* 
*yu 
ARK 
KAKI RA 
RARA RAR 
RARA KERR RRA ARA 
REKARAREKA AREA 
RARA REKAAK RA KAA RARA 
HARI AEKAAAA RARA AAA AR 
RARA ARA AR 
HEKARAEKARAAAKRiA RAR 
RARKRARARAKE RA KK KAR 
RRA RRA ARA 
RARA AAA RARA AAA 
RARA ARA 
RAHAHAKER KK 
REHARAAKKK RRA AAA 
REIKI ARAKK RRA 
EXARAARIRA RARA AMARA 
RARA AAKRKRA RARA RRA 
AAA AAA 
RARA 
KK 
RKXKKRkA 
KAR 
KK KA 
KKKKKkR 
KKKk ik 
EXA KARA 
KARA 
*e 
* 


Observacáo: O trabalho de levantar ponto a ponto uma figura pode ser simpli- 
ficado em sistemas mais sofisticados, através do uso de equipamen- 
to especial, denominado DIGITADOR DE FIGURAS, que transfor- 
ma o contorno da figura em coordenadas cartesianas. 


16.3. TRANSFORMACAO DA FIGURA: DESLOCAMENTO A 
DIREITA OU A ESQUERDA 


A vantagem da representacáo da figura por uma tabela de valores numéri- 


cos reside na facilidade de efetuar transformacdes, uma vez que estamos ma- 
nipulando apenas valores numéricos, P e N. 
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No exemplo, temos um programa que permite deslocamento á direita até 
um limite máximo de 40 posicóes. Esse limite foi necessário, pois em BASIC a 
impressáo de mais de 40 caracteres seguidos em uma linha torna o controle da 
impressáo difícil (a linha muda automaticamente) a menos que alguma funcáo 
especial de controle seja usada. 


Programa: 


20 REM TRANSLACAO PARA DIREITA — K POSICOES 

30 REM P = POSICAO ATE PRIMEIRO SINAL 

40 REM N = NUMERO DE SINAIS 

45 INPUT K 

50 READ P, N 

60 IF P=0 THEN IF N =0 THEN 600 

61 REM TESTE DO LIMITE DE TRANSLACAO (MAX 40 POSICOES) 

62P=P+K 

63 IF P > 40 THEN 66 

64 IF P + N > 40 THEN 68 

65 GO TO 70 

66 PRINT 

67 GO TO 50 

68N =40-P 

70 PRINT TAB (P), 

80 FOR J=1TON 

90 PRINT ” +», 
100 NEXT J 
110 PRINT “$” 
120 GO TO 50 
400 DATA 23, 1,22, 2, 21,8, 19, 11, 17, 15, 13, 22, 14, 28, 13, 28 
410 DATA 11, 26, 13, 16, 11, 19, 13, 19, 12, 19, 14, 21, 13, 19, 15, 18 
440 DATA 16, 20, 16, 18, 17, 18, 16, 19, 16, 16, 16, 14, 15, 9, 15,7 
460 DATA 14, 7, 14, 6, 15, 6, 16, 6, 17, 19,18, 13, 30,2, 32, 1,0,0,0 
600 END 


Resultado: 
DESLOCAMENTO Á DIREITA EM K = 13 POSICOES 
FO! FIXADO UM LIMITE Á DIREITA NA POSICÁO 40. 


* 
** 
kk kde 
ERA AA 
EXRARARARA 
REXERARARA LARA 
REXÁKÁEARKARR ARA 
EXARECERE AAA 
REXEAERAEA— RARA AA de 
EXA kk 
REAÁEKRERELA kk ki 
RERERERAKAk kk 
REA kk kk 
RAÁKAAKAKA KK A 
ERAEKARKKKKkk kk 
REA ki 
RKKKAKAKAk kk 
KARA K kk 
ERKXKKKk kk 
REX Ak 
RARKRRARAA 
RERERERKARAR 
RRRERARR 
XKAÁKRARA 
REKEKRAR 
ko 
CRA 
RARAERA 
ERARARERAARA 
RAXRARAA RR 


16.4 DEFORMACAO GRADUAL DA FIGURA: DESLOCAMENTO 
E ROTACAO 


Neste exemplo, é possível introduzir dois tipos de movimentos na 


figura original. 
a) deslocamento á direita ou á esquerda conforme o valor K1 seja 


positivo ou negativo; 
b) rotacáo gradual em torno do ponto superior da figura de acordo 


com o valor dado a K2. 
173 
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Programa: 


20 REM DEFORMACAO GRADUAL (TRANSLACAO E/OU ROTACAO) 
22 REM EM TORNO DA POSICAO SUPERIOR DA FIGURA 


23 REM K1 = INCREMENTO DA TRANSLACAO 


24 REM K2 = INCREMENTO DA ROTACAO 
30 INPUT K1, K2 

32 K = K1 

33 K3=0 

40 REM N = NUMERO DE SINAIS 
50 READ P, N 

60 IF P=0 THEN IF N=0 THEN 600 
61P=P+K 

62 IF P< =0 THEN 66 

63 IF P > 40 THEN 66 

64 1F P+N > 40 THEN 68 

65 GOTO 70 

66 PRINT 

67 GOTO 50 

68 N = 40 -P 

70 PRINT TAB (P); 

80 FORJ=1TON 

90 PRINT “ +”, 
100 NEXT J 
110 PRINT “$” 
120 K =K1+K3 
125 K3 = K3+ K2 


130 GOTO 50 


400 DATA 23, 1, 22, 2, 21, 8, 19, 11, 17, 15, 13, 22, 14, 28, 23, 28 
410 DATA 11, 26, 23, 26, 11, 19, 13, 19, 12, 19, 14,21, 13, 19, 15, 18 
440 DATA 16, 20, 16, 18, 17. 18, 16, 19, 16, 16, 16, 14, 15, 9, 15,7 
460 DATA 14, 7, 14, 6, 15, 6, 16, 6, 17, 19, 18, 13, 30, 2, 32, 1,0,0,0 


600 END 


Resultado: 


DESLOCAMENTO Á DIREITA :K1 = 10 
ROTACÁO GRADUAL Á ESQUERDA: K2 =- 1 
LIMITE Á DIREITA: POSICÁO 40 


* 
** 
XKXKXKKkXk 
KKKKXKKKAKA 
ERRE KkARA 
EXERXAXAKARARARKKKKKk kk 
RARA RA RAR 
RAEXAKARKKRKARKKKA KK KR 
RRKÍRXKARKAAAA AA KARA 
ERAKXAKKKKKKKKAiKkk 
EAKAKEKKKRARAKKKkR 
AREA AAA AA RAR 
EXXEXAKARHA KERALA R 
XKKKAKARARKRARARKALXKAR 
KAXKKKKKKKXKKKRKKAKRkA 
EXAKKKKKXKKKKAKKAKA KR 
ERRE RARA AAA AR 
REKHARKRKAAAAARRARSR 
REIR KARA 
XA RRA RAR 
RAXAXARA RAR RARAS 
XX KARA 
EXXKXARKKKkX 
RXXKKAKA 
KKKXKKXk* 
KKKAKA 
XRAXXK AR 
XKAXX* 
RAI KKRKKKAKK AAA 
RXXIRKKKAKKR 
*xx* 
* 
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16.5 GRÁFICO USANDO FUNCGAO PLOT X,Y OU SET(X,Y) 


(Adaptado de: Microcomputer graphics — de D. Hearn e M. P. Baker, 
Prentice-Hall, USA, 1983). 


A maioria dos microcomputadores possuem funcdes próprias para tracar 
gráficos sobre a tela do vídeo de TV. 


A tela é considerada como uma matriz (X,Y) de pontos, cuja dimensáo varia 
de microcomputador para microcomputador. 


A funcáo PLOT X,Y ou SET(X,Y) que sáo equivalentes, servem para colocar 
um PONTO (ou uma MARCA) na posicáo (X,Y) dessa matriz. 


As principais funcóes usadas para comandar o gráfico nessa matriz sáo: 
a) FIXAR MODELO GRÁFICO: GR ou GRAPHICS ou GRAPH 


b) LIMPAR A TELA: CLS ou CLEAR 

c) COLOCAR PONTO NA POSICÁO OGY): PLOT X,Y ou SET(X,Y) ou 
PSET(X,Y) 

d) APAGAR PONTO DA POSICÁO (X,Y): POINTOFF(X,Y) ou RESET(X,Y) 
ou PRESET(X,Y) 


Infelizmente náo existe uniformidade no nome e na forma dessas funcóes, 
e o usuário deve consultar o manual do seu microcomputador para usar a forma 
correta das mesmas. O MODO GRÁFICO serve para fixar a saída dos resultados 
sobre a tela em forma gráfica e o usuário náo deve usar, nesse caso, comandos 
do tipo PRINT ou INPUT que requerem a tela para colocar resultados alfanu- 
méricos. O uso do comando GR de modo gráfico em alguns sistemas é dispensa- 
do, pois está incorporado no CLS ou CLEAR. 


Exemplo: Tracar P pontos aleatórios ou randómicos na tela. 


NEW 
10 PRINT “FORNECER VALORES MÁXIMOS DE X E Y”* 
20 INPUT XM, YM 
30 PRINT “QUANTOS PONTOS DESEJA?” 
40 INPUT P 
50 PRINT “FORNECER UM VALOR AO ACASO ENTRE ZERO E UM COMO 
:SEMENTE” 
60 INPUT Z 
70 REM LIMPA A TELA 
80 CLS (ou CLEAR) 
90 REM GERAR P PONTOS 
100 FOR K=1 TOP 
100 LET X=INT (XM* RND(Z)) 
120 LET Y=INT(YM* RND(Z)) 
130 SET(X,Y) (ou PLOT X,Y ou equivalente) 
140 NEXT K 
150 END 


176 RUN 


Exemplo: Desenhar usando o teclado uma figura qualquer na tela. 


Este programa permite tracar, a partir de um ponto inicial (X,Y): 


— um ponto PARA CIMA se apertar a tecla “C”; 

— um ponto PARA BAIXO se apertar a tecla *'B”; 

— um ponto PARA A DIREITA se apertar a tecla *'D””; 

— um ponto PARA A ESQUERDA se apertar a tecla “'E””; e 
— TERMINAR a figura se apertar a tecla ““F”. 


NEW 
10 PRINT “FORNECER VALORES MÁXIMOS DE X E Y” 
20 INPUT XM, YM 
30 PRINT 
40 PRINT “FORNECER COORDENADAS INICIA!S X E Y” 
50 INPUT X, Y 
60 REM MODO GRÁFICO E LIMPAR A TELA 
70 CLS (ou CLEAR) 

80 IFX<0 ORX>XM OR Y <O OR Y > YM THEN 270 
90 SET (X,Y) (ou PLOT X,Y) 

100 REM APERTAR UMA DAS LETRAS PERMITIDAS NO TECLADO” 

110 S$=INKEYS$ 

130 IF S$=""B" THEN GO TO 190 

140 IF S$=""C" THEN GO TO 210 

150 IF S$=""D” THEN GO TO 230 

160 IF S$=""E” THEN GO TO 250 

170 1F S$=""F" THEN GO TO 300 

180 GO TO 80 

190 Y=Y+1 

200 GO TO 80 

210 Y=Y-1 

220 GO TO 80 

230 X=X+1 

240 GO TO 80 

250 X=X-1 

260 GO TO 80 

270 PRINT “PONTO FORA DO LIMITE PERMITIDO” 

300 END 


Nota: O comando de controle INKEY$ permite receber um sinal alfa-numérico 
apertando qualquer tecla do teclado. 
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16.6 EXERCICIOS DE APLICACAÁO 


1. Tracar, usando o levantamento ponto a ponto do item 16.1, a imagem de 
qualquer outra figura. Por exemplo: um quadrado, um losango, uma flor, perfil 
de um rosto, de um automóvel etc. 


2. Introduzir, nos exemplos dados, outros tipos de transformacáo de uma figura. 
Por exemplo: operacáo de aumento e diminuicáo de escala. 


3. Escrever um programa Basic que gire a figura do item 16.2 em 180 graus 


em torno de um eixo vertical centralizado, isto é, de modo que a figura do 
item 16.2 seja rebatida, mudando o lado direito e o lado esquerdo. 
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Aplicacáo: Sistema 
de Equacóes Lineares 


17.1 CONCEITO BÁSICO E REGRA DE CRAMER 


Um sistema de equacódes é dado na forma: 


311X1 +aj2x2 +...+arpyxn=C1 


II 
o 


d721X1 + +a2nxn=C, 


anX1 +an2X2 +...+annXxn = cn 


A regra de Cramer para resolver um sistema de duas equacóes é: 


a11X1 +a12X2 =C1 


a21X1 +972X2 =C2 


C1 d12 a11 C1 

C2 d22 a21 C2 
x= e X2= 

a11 d12 a11 C12 

a21 422 221 d22 


Para um sistema com mais de trés equacóes o cálculo dos determinantes 
torna-se trabalhoso e devemos procurar outro método de resolucáo. 179 


17.2 MÉTODOS ITERATIVOS 


Ó sistema de equacóes: 


a11X1 +aj2X2 +...Fa1nxn=C1 


ani X1 +an2X2 +...+annXxn = Cn 


é rearranjado, de modo a isolar x, na 18 equacáo, x2 na 22 equacáo etc. 


1 
*X1 ea (c1 =d12%X2 -d13X3 +...” a1nXn) 
11 


1 
Xn = 3— (Cp - dp1X1 - dn2X2 +. An,n-1Xn-1) 
ánn 


O processo iterativo assume uma solucáo inicial tx, 19) end xp (0) que, 
substituídos nos lados direitos das equacdes rearranjadas, fornece a próxima 
solugáo (x,1*),...,xn(*)) e assim por diante. 


A iteracáo termina, por exemplo, quando, entre 2 solucóes sucessivas, temos: 


a ; <Dre- 
EA A o 
x, (1+ 1) xp 1) dada 


Exemplo: 


Seja o sistema: 


3x, +x2 +x3 =10 


X1 + Bx2 + 2x3 = 21 
x1 +22 + 5x3 =30 


As fórmulas de iteragáo seráo: 


x (+ D= (1/3) (10 - x2 (1) - x, (0) 


x2 (1 + 1= (1/5) (21 - x1 050) - 2x3 11) 
x3 [1 + 1= (1/5) (30 - x, (1) - 2x2 (1)) 
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Usando a solucáo inicial: x, =c,/a¡1 = 10/3, 
X2 = C2/a22 = 21/5 


e *X3 = C3/a33 = 30/5 


temos os seguintes valores (a solugáo inicial x¡ =x2 = x3 = O resultará após uma 
iteracáo, na solucáo inicial acima). 


-0,076 . . .0,998 0,999 
4,200 1,111...1,998 2,001 2,000 
3,654 .. .4,998 5,000 


17.3 MÉTODO DE ITERACÁO DE GAUSS—SEIDEL 


Parece ser vantajoso usar cada novo valor x¡ obtido em uma iteracáo imedia- 
tamente no cálculo dos demais valores durante a mesma fase da Mo É o que 
faz o método de Gauss-Seidel que usa as fórmulas: (o valor xy (1 +1) é imediata- 


(i +1) 


mente usado para obter x» , etc.) 


xi (1+1)= (1/3, ,) e, - a12X2 (1) -...- 31 nxn 1) 
xa l1+2) = (1/a22) (cz - a12X1 li ed -azaxa li. . .- ax p!1) ) 
xpli +1) = (1/a9n) (Cn - ani (140 apa MH... 


+1 
ano ¡Xp li? *)) 


O exemplo do exercício anterior converge mais rapidamente por este mé- 
todo. 


iteracáo 1 2 5 6 7 
X1 3,333 -0,067...-. 1,006 1,001 1,000 
X> 4,200 1,813 1,996 2,000 2,000 
X3 6,000 5,288 5,006 5,000 5,000 


181 


17.4 SISTEMA DE TRÉS EQUACOES PELO MÉTODO 
ITERATIVO DE GAUSS-SEIDEL 


Resolver por Basic o mesmo sistema estudado: 3x, + x2 +x3= 10 
Xy +5x2 + 2x3 = 21 
X1 +2x2 + 5x3 = 30 


100 DIM A (3, 3), B (3) 

105 PRINT “FORNECER COEF A (1, J)”* 

110 FORI=1T03 

120 FORJ=1T03 

130 READ A (1, J) 

140 NEXT J 

150 NEXT | 

155 PRINT “COEF B (1) 

160 FOR|=1T0 3 

170 READ B (1) 

180 NEXT 1 

190 PRINT “VALORES INICIAIS X1, X2, X3” 

200 INPUT X1, X2, X3 

210 FORL=1T0 10 

220 LET X1 =1/A (1,1) *(B (1) - A (1,2) *X2 - A (1,3) * X3) 
230 LET X2 = 1/A (2,2) *(B (2) - A(2, 1) *X1-A (2, 3) * X3) 
240 LET X3 = 1/A (3, 3) *(B (3) - A(3, 1) *X1- A (3,2) * X2) 
250 PRINT “ITERACAO”, L, X1, X2, X3 

260 NEXT L 

270 DATA 3, 1,1,1,5,2,1,2,5 

280 DATA 10, 21, 30 

290 END 
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RUN 

FORNECER COEF A (1, J) (lidos no READ-DATA) 
COEF B (1) 

VALORES INICIAIS X1, X2, X3 

23.333, 4.2, 6 

ITERACAO 1 3.333 

ITERACAO 2 -0.067 


ITERACAO 7 


ITERACAO 10 
READY 


17.5  EXERCICIOS DE APLICACAÁO 


1. 


Escrever um programa em Basic que calcule o determinante de uma matriz 3x3 
e entáo resolva um sistema de 3 equacóes lineares a 3 incógnitas (Regra de 
Cramer). 


. Altere o programa de iteracáo pelo método Gauss-Seidel dado no capítulo, para 


o método iterativo comum. Qual a diferenca entre os dois métodos? 


. Resolver os seguintes sistemas lineares: 


a) 2x+3y=3 b) 4x + 2y - 6z = 10 
5x - dy =14 9x - 6y +32 =15 
5x -3y-z=16 


Escrever um programa Basic, usando a Regra de Cramer. 


. Resolver o seguinte sistema de equacóes, através de um programa BASIC, com 


método de Gauss-Seidel: 
x+2y+3z=c 
3x + 10y - 4z =d 


-2x-4dy+z=e 
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para os seguintes valores de c, d, e: 


c= 6 6 14 -6 4 
d= -29 9 11 -9 -1 
e= 9 -5 -7 5 -1 


a 


Uma fábrica produz 3 tipos diferentes de produtos que sáo processados em 3 
departamentos diferentes. A tabela de gasto de horas de cada Departamento 
por cada produto, bem como o número total disponível de horas de cada de- 
partamento é a seguinte: 


Consumo de horas (do Departamento) 


A B C 
Produto 1 3 1 
Produto 2 1 5 
Produto 3 1 2 
Total de horas 
Disponíveis 10 21 30 horas 


Quantas unidades de cada produto é possível fabricar, utilizando-se plena- 
mente a capacidade disponível em cada departamento? Formular o problema 
como sistema de equacóes lineares e resolver pelo método de Gauss-Seidel. 


6. Em um circuito elétrico de 6 nós, as resisténcias estáo em ohms e o potencial 
aplicado entre A e B é de 100 volts. 


As equacódes dadas pela Lei de Kirchoff nos 6 nós, em funcáo das poténcias 
vj no mó ¡i, sáo: 


Nó 1: 11 v1-5v2 - v6 = 500 
Nó 2: -20 v1 +41 v2 -15 v3 -6v5 = 

Nó 3: -3v2+7 v3 - 4v4 = 

Nó 4: -13+2v4-v5 = 

Nó 5: -3v2 -10v4+28v5-15v6=0 
Nó 6: -2v1 -15 v5 + 47 v6=0. 


Resolver o sistema pelo método de Glauss-Seidel para as dez primeiras ¡te- 
racOes e usar como solucáo incial vil =v2=v3=v4=v5=v6 = 1. 

Escrever um programa em Basic e testar o programa manualmente para 3 
iteracOes. 


184 


Aplicacáo: 
Integracáo Numérica 


18.1 CONCEITO BÁSICO 


Freqúentemente náo é possível obter diretamente o valor da integral 
de uma fungáo, ou porque f(x) é difícil de ser integrada ou porque f(x) é 
fornecida em forma de tabela, ou valores experimentais obtidos por medi- 
cáo. 


O procedimento adotado em tais casos é substituir a funcáo f(x) por 
um polinómio de interpolacáo plx) e efetuar numericamente o cálculo da 
integral de plx). 


18.2 REGRA DO TRAPÉZIO 


O processo mais simples de obter o valor aproximado de uma integral é 
determinar as áreas dos polígonos ou trapézios formados, ligando-se dois pontos 
consecutivos de f(x) por uma reta (e temos uma interpolacáo linear). 

Por exemplo, os pontos xy e X = xy + h, separados pelo intervalo h, forne- 
cem área: (Fig. 18.1.). 


f(x1)+f (0 +h) 
Área = ————————— .h 
2 


Para n pontos f(x,), f(x,).. - .. flxp) basta somar as áreas dos trapézios 
obtidos e temos: 


Xn ñ 
S f(x)dx => [x, ) +2 F(x,)+..+2 f(xp.1) + t(xn)] 
1 
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Figura 18.1. [ntegragáo pela regra do trapézio. 


18.2.1 Aplicacáo 
Obtencáo da distáncia percorrida por um veículo espacial 
Um veículo espacial foi lancado da plataforma no instante t= 0, eé 
possível obter a certos intervalos de tempo o registro de sua velocidade 


que é variável. No instante t qualquer é possível obter a distáncia total 
x(t) percorrida pelo veículo espacial, através da integral: 


t 
x(t) = S v(t) dt para x(0) =0. 
0 


A obtencáo da distáncia percorrida x(t) só é possível através da inte- 
gracáo numérica, pois desconhecemos como a velocidade v(t) varia. 


Por exemplo, se o registro de dados obtidos foi: 


T (seg.) | vít) km/seg Aplicando a fórmula vista, com h = 2: 


t 


xt) = S vit) dt = 
0) 


= (2/2) (1,00 + 2 x (1,82 + 2.09 + 3,52 + 4.75) + 6,81) 
= 32.17 km. 


Obtengáo da energia total consumida por um motor elétrico 


Quando um motor funciona durante t segundos a energia total consu- 
mida é dada por: 


t 
Elt) = S P(t) at. 
0 


Como na aplicacáo anterior, só possulmos registro de dados experi- 
mentais dos valores da poténcia P(t) consumida e a energia E (t) só poderá 
ser obtida através da integracáo numérica. 


Por exemplo, seja um motor elétrico que consumiu energia de acordo 
com a seguinte tabela: 


P(t) = 500 watts para 0 <t<1 hora; 
P(t) = 700 watts para 1 <t<2 horas 
P(t) = 1000 watts para 2 <t <4 horas. 


A energia total consumida até o instante M dado será a área que fica 
sob a curva de valores de P(t) (Fig. 18.2). 


8 calcular a energia total consumida no instante Me 
e custo dessa energia. O custo unitário é Cr$ 5,00 watts/hora. 


ma 
A 


0 


t 
(horas) 


Figura 18.2. Consumo de energia do motor elétrico. 


Resultado obtido 


0010 PRINT “A, B, C, H, M” 

0020 INPUT A, B, C, H, M 

0030 P=0 

0040 1=0 

0050 X=A*2 

0060 Y =1 

0070 GOSUB 1000 

0080 X=B*2 

0090 Y =2 

0100 GOSUB 1000 

0110X=C*"2 

0120 Y = 4 

0130 GOSUB 1000 

0140 1 =1*H/2 

0150 PRINT “ENERGIA TOTAL CONSUMIDA : ” ;l; “WH” 
0160 J=J*5* H/2 

0170 PRINT “CUSTO EM DUAS HORAS CR$ ” ¿J; “,00” 
0180 STOP 

1000 1=1+X 

1001P=P+H 

1010 IF P>M THEN 1F P >= 2 +H THEN 1030 
1020 J=1 

1030 IF P< Y THEN 1000 

1040 RETURN 

1050 END 


188 


RUN 


A,B,C,H,M Valores de 
A, B,C, H = intervalo de 
integracáo e instante 


? 500, 700, 1000, .5,2 
ENERGIA TOTAL CONSUMIDA: 3200 WH y — 2 horas 
CUSTO EM DUAS HORAS CR$ 6000,00 

sTOP 0180 

READY 


18.3 EXERCICIOS DE APLICACAO 


1. 


Escrever um programa em Basic para calcular a integral da funcáo qualquer 
f(x), dada por n pontos f(x), f(x2),..., f(xp). 


Usar a regra do trapézio. 


Testar o programa com os valores do Exercício do item 18.2. 


. Escrever um programa em Basic para calcular numericamente o valor de: 


l= S (1 - 2x? + x?) dx para incremento h =0.1. 
-1 


. Calcular o valor da área sob a curva f(x) cujos valores foram experimental- 


mente obtidos: 
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Apéndice A 


Exemplos de sub-rotinas para usar arquivos de discos em 
microcomputador 


A -1) INTRODUCGAO: 


O processamento comercial de servicos rotineiros (por exemplos, número de 
itens de dados superior a 50 ou 100) requer o uso e a formacáo de Arquivo de 
Dados que em microcomputadores quase sempre é feita usando-se disquetes. 
Infelizmente, os comandos e as rotinas para formar e para usar tais arquivos náo 
sáo padronizados, surgindo daí uma inevitável dificuldade na apresentacáo de seu 
uso em textos didáticos. 


Para o uso de arquivo em disquetes, o usuário deve sempre consultar o 
manual de seu próprio microcomputador. 


A própria técnica de formacáo e uso eficiente de arquivos depende muito do 
conhecimento das técnicas de organizacáo e acesso aos arquivos de dados. Como 
fonte de consulta de nível geral sobre organizacáo e acesso de arquivos, recomen- 
damos a leitura de: 


Processamento de dados nas empresas de T. Shimizu, Atlas, SP 
e Programacáo COBOL de T. Shimizu, Atlas, SP. 


Apresentaremos, a seguir, resumos e exemplos de comandos e sub-rotinas 
para manipular arquivos em diversos microcomputadores. Esses exemplos devem 
servir apenas para comparacáo e ilustragáo dos comandos. O uso exato dos mes- 
mos deve ser procurado nos manuais dos respectivos microcomputadores. 


A -2) BASIC DA APPLE 


1010 D$ = CHR$ (4) 

1020 PRINT D$; “OPEN”, F$ 

1030 PRINT D$; “READ OR WRITE”; F$ 
1040 RETURN 


1200 PRINT D$; “CLOSE” 
1210 RETURN 


3100 INPUT V1, V2 
3110 INPUT S$ 
3120 RETURN 


4100 PRINT V9;”,.”; V2 
4110 PRINT S$ 
4120 RETURN 


A -3) BASIC DA IBM 


1000 OPEN F$ FOR INPUT AS ++ 1 
1010 RETURN 


1050 OPEN F$ FOR OUTPUT AS ++ 2 
1060 RETURN 


1100 CLOSE 
1110 RETURN 


2100 INPUT +1, V1, V2 
2120 INPUT +1, S$ 
2140 RETURN 


(para abrir um arquivo) 


(para fechar um arquivo) 


(ler um item de dado) 


(escrever um item de dado) 


(abrir um arquivo F$ de entrada 


no buffer + 1) 


(abrir arquivo F$ de saída no 


buffer + 2) 


(fechar arquivo) 


(ler um item de dado) 
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3100 PRINT +2, V1,”,”; V2 
3120 PRINT +$2, S$ 

3140 RETURN 

A -4) NORTH-STAR BASIC 
1520 OPEN ++1, “REGISTER” 


1540 CLOSE +1, “REGISTER” 


1400 READ +1 %E* 64,... 


noo. y. go. 


1500 WRITE H1%E*%64 ....o..mocoo- on 


(escrever um item de dado) 


(para abrir arquivo) 


(para fechar arquivo) 


(para ler item) 


(para escrever item) 


Apéndice B 


Tabela parcial dos caracteres ASCII — Valor decimal X: caractere ASCII 


K 
L 
M 
N 
0] 
P 
Q 
R 
S 
T 
Ú 
v 
W 
X 
Y 
Z 
[ 
N 
] 
1 
“ 


e-IOn=MOOW>Q=VIA.. 
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Apéndice C 


Resumo dos principais comandos e funcdes da linguagem Basic 


C- 1) COMANDOS BASIC 


Código Operacáo Exemplos 


Contém valores para serem lidos pelo |100 DATA “NOME, 10, 35 
comando READ (Cap. 5) 


Define uma funcáo matemática 100 DEF FNX(X) = X**+ 2 


F . 
e é usada pelo programa — [10 DEF FNA(Z)=Z"2+Z**2 


DIM Define o tamanho máximo de variáveigl0 DIM X (15), A (30, 2) 
dimensionadas de uma ou duas dimen- 


sóes (Cap. 7) 


100 END 


Término de execugáo do programa 
indicando a mensagem READY. Pode 
ser usado no lugar de STOP (Cap. 2) 


Inicia e controla repeticáo de um tre- [50 FOR I= TO 5 STEP 0.5 


cho de programa que vai até o coman- 
do NEXT (Cap. 3) 70 NEXT 1 


. - STEP 


Desvio para sub-rotina que comeca no [1000 GOSUB 300 
comando n e retorna após encontrar |... 
RETURN (Cap. 9) 


Código Operacáo Exemplos 


Desvio para o comando de números nJ70 GO TO 100 
80 IF X = Y THEN 50 


ou Palavra GOTO pode ser opcional no 


comando IF (Cap. 4 


IF... THEN| Executa operacáo após THEN se con-[190 |F X=Y THEN PRINT 
dicáo for verdadeira (Cap. 4) “IGUAIS” 


| 
INPUT Lé valores através do teclado do ter- |50 INPUT X, Y, Z 


minal (Cap. 2) 20 INPUT N$ 


LET Calcula valor de fórmula aritmética [|10LETA=B 
Palavra LET é opcional (Cap. 2) 


100 2= (A+B)/(C * 34.0) 


NEXT Colocado para indicar o fim do tre- |20 FOR 1=1 TO 10 


cho de repeticáo controlado pelo E , 
FOR (Cap. 3) 30 PRINT “OBA”, | 


40 NEXT | 


ON x Desvia para o comando GOTO ou 10 ON X GOTO 120, 5, 20 


sub-rotina (GOSUB) de ordem k 
se o valor de x for igual a k (Cap. 9) 50 ON A+B GOSUB a 


PAUSE Parada temporária do programa po- |50 PAUSE 
dendo recomecar o processamento 
com o comando CONT. 
O manual de seu microcomputa- 
dor deve ser consultado. 


PRINT, |Escreve comentários e valores na 30 PRINT A, X, Y, “BOM” 


<PRINT tela do display de TV (PRINT) 50 PRINT D$, “DATA” 


ou na folha de impressáo (<PRINT) 
ou LPRINT (Cap. 2e 6) 


PRINT Escreve valores editados e formatados|30 PRINT USING“ $$+4.+HP"; 
USING (com sinal $, *, ponto, vírgula) para Bi 
documentos, relatórios etc. (Cap. 8) 
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Código Operacáo Exemplos 


Lé valores previamente colocados no | 10 READ N$, A1, B2 


comando DATA (Cap. 5) 


10 REM ¡NICIO DO CALCU- 
LO 


Contém comentários sobre o progra- 
ma. Náo é executado. (Cap. 2) 


20 READ A, B,C 


30 RESTORE 
40 READ A1,B1, X 


100 DATA 3,5, 7 


Coloca o ponteiro de indicacáo dos 
dados do comando DATA para o 
primeiro valor dos comandos DATA 


(Cap. 5) 


RETURN | Ponto de uma sub-rotina chamada 300... 


pelo GOSUB. (Cap. 9) 


500 RETURN 


Pára a execucgáo e náo recomeca o 20 STOP 
processamento. Para recomecar 
deve-se consultar o manual. 


(Cap. 1 e 2) 


C - 1.1)Comandos Basic especiais existentes em outros microcom- 


putadores 
IBM-5000 TRS-80 PET 
CHAIN CMD CLOSE 
OPEN ERROR OPEN 
CLOSE OUT GET 
DELETE RESETE LOAD 
FORM RESUME POS 
GET SET VERIFY 
PUT sPC 
USE STEP 
MAT 


C-2) PRINCIPAIS COMANDOS DE CONTROLE (Cap. 1) 


NEW 
RUN 
LIST 
LIST K1, K2 
SAVE 


LOAD 


APPEND 
CONT 


Limpa memória colocando valor zero 

Executa o programa Basic da memória 

Lista o programa Basic 

Lista do comando K1 até K2 

Copia o programa da memória para outro meio como fita de papel, 
fita cassete etc. 


Limpa a memória e carrega um programa (de fita de papel ou 
cassete) para a memória. 


Acrescenta o programa da fita de papel ou cassete na memória 


Continua a execucáo de um programa suspenso pelo comando 
PAUSE. 


C-2.1.) Comandos especiais de controle existentes em alguns mi- 


crocomputadores. 
Motorola M-6800  1BM-5000 TRS-80 PET 
EXIT ALERT CLEAR sYS 
TRACE-ON AUTO DELETE TIS 
TRACE-OFF SKIP EDIT WAIT 
CONTROL GO TROFF 
PATCH LINK TRON 
LINE MARK 
DIGITS MERGE 
PROC 
RD 
RENUM 
UNTIL 
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C-3) PRINCIPAIS FUNCOES EM BASIC (Cap. 10) 


C - 3.1) 


Código 


ABS(X) 


LOG(X) ou LN(X) 


EXP(X) 
SOR(X) 
SGN(X) 


INT(X) 
FIX(X) 
CDBL1(X) 
CSNG(X) 
RND(X) 


Funcdes Aritméticas 


Operaqáo 


—Valor absoluto de X 
—Logaritmo natural de X 
—Valor de eX 

—Raiz quadrada de X 


—Fornece valor 1 se x > 0; 
0OseX=0e-15ex<0 


—Maior inteiro contido em X 
—Parte inteira do valor X 
—Converte X para precisáo dupla 


—Reduz X para precisáo simples 


—Fornece valor aleatório entre O e 1 


C.3.2) Funcdes Trigonométricas 


Código 


SIN(X) 
cos(x) 
TAN(X) 


ATNOJ 
ACS(X) 
ASNX) 


Operacáo 


—Seno de X (em radianos) 


—Co-seno de X 


— Tangente de X ” 


—AÁrco tangente de X 
—Árco co-seno de X 


—AÁrco seno de X 


Exemplos 


Y=ABS (X - Y) 
Z=LOG (X+3) 
Y=EXP (3.1415) 
Z=SOR (2) 

W =SGN (3*S1) 


Y=INT (X) 

Z = FIX (X +1) 
Z=CDBL(X) 
Z=CSNG(X) 
W=RND(0.45) 


Exemplos 


Y =SiN(3.14) 
Y=C0S (Z + 3) 
Z=TAN(X) 


Z=ATN(1) 
Z=ACS(0.5) 
Z =ASN(X) 


C.3.3) Func0es que manipulam Strings 


Código Operacáo Exemplos 


CHR$(X) Converte valor X em caractere ASCII! | PRINT CHR$(32) 
ASCS(N$) Converte primeiro caractere do PRINT ASCS(AS$) 
STRING N$ em valor numérico do 
código ASCI! 
LEFTSINS$,X) Fornece X caracteres mais á esquerda 
do STRING N$ 
RIGHT(NS,X) Fornece X caracteres mais á direita 


do STRING N$ 


MIDS(NS$,X, Y) Fornece Y caracteres a partir da 
posicáo Y de N$ 


STR$(X) Valor numérico X é tratado como Y$=STR$ (X) 
STRING de caracteres 


VALS$(N$) STRING de caracteres N$ é tratado | X=VAL (“134”) 
como valor numérico 


_INKEYS . Recebe um caractere do teclado 


C-3.4) Controle de impressor 


C-3.5) Funcdes que permitem acesso á memória 


A->EA>- - -_ _Á _OE;á<>áÓ--(á[]b == ——— 


PEEK(X) Obtém conteúdo da posigáo PRINT PEEK(1000) 
endereco X da memória 

POKE X, N Coloca o valor N no endereco X da POKE 1000, 13 
memória 

USR(X) Permite chamar uma sub-rotina que | Y = USR(X) 


está escrita em linguagem de máquina 


Nota: O manual BASIC deve ser consultado para escolha dos valores corretos de X e N. 199 
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Respostas e 
Sugestóes aos Exercícios 


Capítulo 1 


6. b) Após aparecer READY na tela, teclar: 
NEW e tecla RETURN, CR ou ENTER 
(teclar cada comando Basic) e RETURN, CR ou ENTER até o último co- 
mando END. 
d) LIST NN, NN ou LIST NN-NN 


Capítulo 2 
1b) Resultados: TITULO:... 
25,10 (valores de X a A fornecidos) 
5.000 10.000 15.000 
READY 


2c) 10 1NPUT X, Y 


20 LET Z=(X* X + Y * Y)/3 
30 PRINT Z 


40 END 
RUN 


3. Veja item 2.1, exemplo. 
4. Veja item 2.5, exemplo.. 


Capítulo 3 
la) X=1+1+..+1=10 
Y=1+2+3+..+10 


1d) X=1,3,5,7,9 
Imprime: BASIC 


2a) idéntico ao valor Y do ex. 1% com N qualquer. 


2c) 10INPUT U,N 
20 Ww1 =U 
30 W=U 
40 FORI=1TON 
50 W1 =W1 *(U-1) 
60 W =W +W1 
70 NEXT | 
80 PRINT W 
90 END 


Capítulo 4 


la) A=6 A=3 A=5 
Escreve: 6 3 TERMINOU 


2a) (Verdadeiro) OR (falso) OR (verdadeiro) Resultado: verdadeiro 
2c) NOT (5X(-3)< = 10) => NOT (verdadeiro) > falso 


3) 10 INPUT X 

20 IF X< 1 THEN 60 
30 IF< =5 THEN 80 
40 LETF=X1X +1) 
50 GO TÓ 100 

60 LETF=X+2 

70 GO TO 100 

80 LETF=X*X+1 
100 PRINT F 
120 END 


4) Veja item 5.3. 201 


Capítulo 5 


2a) Ler(Z=33 e X = 55) 
Ler (Y =-1 e W = 43) 
Escrever: Y =-1, W= 43, Z= 33, X= 55 
Ler (X = 51) 
Escrever: Y =-1, W=43,Z=33e X= 51 


3) Para os sete alunos, repetir, as operacóes: (FOR-NEXT) 
— Ler número e notas de cada matéria 

Calcular média do aluno 

Acumular soma das notas de cada matéria 

— Escrever: número, notas e média do aluno 


Após a repeticáo: 
— Calcular e escrever as médias por matéria de toda a classe de sete alunos. 


Capítulo 6 
1b) Basic nível || 1983 
Basic Basic 1984 


2a) Falta um valor no DATA para a variável B3. 


3b)  Alterar o comando: 105 PRINT “="; 


Capítulo 7 
1) MES = (JAN, FEV, MAR, ..., DEZ) vetor de 12 elementos 


2) Tabela de número do aluno e notas de Física, Matemática, Portugués e Quí- 
mica do Exercício 3 proposto no Capítulo 5 é um exemplo de matriz de 7 
linhas e 5 colunas. 


5) Cálculo da diagonal da matriz A(l, J) 
50 FORI=1TON 
60 LETD=D+A(I, 1) 
70 NEXT | 


Capítulo 8 
3. Pelo comando 30 PRINT USING A$, A temos o resultado: 
202 $3, 457.84 


6. LEFTS (AS, X) = “VALOR Bb” 


ASC$ (A$) = 86 (valor decimal de V no código ACI!, Apén- 
dice B) 
VAL$ (A$) = deve dar um ERRO, pois o string contido em A$ náo pode ser 
convertido em valor numérico. 


Capítulo 9 

3a) Para Ke X dados náo é possível usar DEF. Usar GOSUB. 
3b) DEF FNXOO =2* Xx +x*x 

3c) Usar GOSUB -— Análogo ao Exercício do item 9.4. 


Capítulo 10 


Todos os exercícios propostos estáo baseados nos exercícios resolvidos do 
capítulo, bastando efetuar pequenas alteracóes. 


Capítulo 11 


Capítulo 12 


2) Utilizando somente comando DATA: ver Exercício 3 proposto no Capítulo 5. 


Capítulo 13 


1) 10 LET X = 0.75 
15 FOR |=1 TO 10 


(Programa do Jogo de CARA ou COROA) 
Se deu CARA : C = C + 1 (contador de NS de CARAS) 


100 NEXT 1 
120 PRINT “NUMERO DE CARAS OCORRIDAS:”, C 
180 END 


5) Roteiro: (Sugestáo) 


a) Gerar um chute: Y = RND(X) 
Se Y > 0.70, entáo PRINT “CHUTE FOIl FORA” e GO TO END, 
Caso contrário, PRINT “CHUTE VEIO PARA GOL”. 
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b) Gerar diregáo do chute que veio para gol: Z = RND(X) 
Se Z< 0.5, chute veio na direcáo 3 ou 4, entáo PRINT “GOOL” e 
GO TO END; caso contrário PRINT “CHUTE NA DIRECAO 1 ou 2” 
c) Gerar defesa do goleiro: W = RND(X) 
Se W< 0.5, entáo PRINT “GOLEIRO DEFENDEU” e GO TO END; 
caso contrário, PRINT “GOOL” 


d) END: repete cobranca da penalidade. 


Capítulo 14 
1) Modificar item 14.2 para Subtracáo e ¡item 14.3 para Divisáo. 


4) Modificar e adaptar o item 14.4 para as operacóes solicitadas. 


Capítulo 15 


4) x? =C com C dado e 
fx) =x? - CF (x) = 3x? 


Capítulo 16 


2) Redugáo de escala: no item 16.2, experimente dividir N por um valor 
constante e use a parte inteira. Por exemplo: N = INT (N/2). Para aumento de 
escala, experimente o valor N = INT (2 * N). Mesmo raciocínio para reducáo 
ou aumento vertical. 


Capítulo 17 


2. Ver Exemplo do item 17.4 
4) Respostas: (x, y, z) = (1, -2, 3); (1, 1, 1); (1, 2, 3); (-1,-1,-1) e (1,0, 1) 


5) Resposta: Produto 1 = 1 
Produto 2 = 2 Produto 3 = 5 unidades 


Capítulo 18 


1. Regra do Trapézio: Ler valores X(1) e F(1), paral=1,2,3,..., N. 
S=F(1)+ F(N) primeiro e último valor 
D=2x!IF (2) +. .+ F (N - 1)] Soma valores intermediários F(2),....., 
F (N - 1) e multiplica por dois. 
Calcular: (H/2) * (S + D) 


204 3) Seguir Exemplo do item 18.2 
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